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FORTRAN  ALGORITHMS  FOR  THE  THREE-DIMENSIONAL  SOLUTION  OF 
TWO-LAYER  SOLID  AND  HOLLOW  CYLINDER  DYNAMIC  ELASTICITY 
PROBLEMS  WITH  AND  WITHOUT  FLUIDS 

INTRODUCTION 

Closed  form  solutions  for  wave  propagation  in  a  two-layered  cylinder  with  outer  fluid  loading 

were  analyzed  in  NUWC-NPT  Technical  Report  11,043.^  The  solution  for  the  subproblem 
consisting  of  a  single  solid  cylinder  in  contact  with  an  outer  fluid  was  also  presented  in  fliis 
reference. 

Additionally,  a  closed  form  solution  for  wave  propagation  in  a  two-layered  cylinder  with  inner 

and  outer  fluid  loading  was  derived  in  NUWC-NPT  Technical  Report  1 1 ,067.^  The  subproblem 
of  a  single  solid  cylinder  in  contact  with  inner  and  outer  fluids  was  also  addressed. 

In  both  of  these  previous  derivations,  the  cylinders  were  infinite  in  the  longitudinal  direction. 
Damping  was  modeled  using  a  complex  modulus  of  elasticity,  which  required  a  series  solution  for 
the  requisite  Bessel  functions.  Three  excitation  states  were  considered:  the  normal  pressure 
the  longitudinal  shear  stress  P^,  and  the  circumferential  shear  stress  Pq.  The  response  was 
derived  for  nonaxisymmetric  excitation  in  terms  of  circumferential  order  number  n.  The 
axisymmetric  response  was  obtained  by  the  degenerate  case  of  n  =  0. 

The  closed  form  solutions  described  above  have  been  programmed  in  FORTRAN  to  obtain 
numerical  results.  This  document  details  the  FORTRAN  algorithms  developed  to  describe  the 
cases  of  wave  propagation  presented  in  references  1  and  2.  Variable  lists,  subroutine 


1 .  M.  S.  Peloquin,  “A  Three-Dimensional  Elasticity  Solution  for  Wave  Propagation  in  a  Two-Layered  Infinite 
Viscoelastic  Solid  Cylinder  With  Outer  Ruid  Loading,”  NUWC-NPT  Technical  Report  1 1,043,  Naval 
Undersea  Warfare  Center  Detachment,  New  London,  CT,  31  August  1995. 

2.  M.  S.  Peloquin,  “A  Qosed  Fonn  Dynamic  Elasticity  Solution  to  the  Ruid/Structure  Interaction  Problem 
of  a  Two-Layered  Infinite  Viscoelastic  Cylinder  With  Inner  and  Outer  Ruid  Loading  Subject  to  Forced 
Harmonic  Excitation,”  NUWC-NPT  Technical  Report  1 1,067,  Naval  Undersea  Warfare  Center  Detachment, 
New  London,  CT,  30  December  1995. 
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descriptions,  flow  charts,  and  a  cross  reference  of  the  FORTRAN  program  are  presented. 

The  input  variables  are  contained  in  tables  1  through  6.  These  tables  relate  the  FORTRAN 
variables  to  the  corresponding  symbols  used  in  the  references.  Intermediate  variables  used  in 
the  FORTRAN  algorithms  and  the  references  are  listed  in  appendixes  A  and  B.  Table  7  lists  the 
output  variables  necessary  to  specify  the  quantity  desired  for  output  and  the  excitation  type.  It 
also  lists  the  particular  model  to  be  used  in  the  calculation: 

•  inner  fluid/cylinder  1/outer  fluid 

•  solid  cylinder/outer  fluid 

•  solid  cylinder/cylinder  2/outer  fluid 

•  inner  fluid/cylinder  1/cylinder  2/outer  fluid. 

These  four  model  types  are  identified  by  variable  emt  and  are  depicted  in  figures  1  and  2.  Table 
8  describes  the  output  variable. 
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Figure  1.  Model  Types  emt  =  1  and  emt  =  2 
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Figure  2.  Model  Types  emt  =  3  and  emt  =  4 
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INPUT/OUTPUTA^ARIABLES 

SOLID  CYLINDER 


Table  1.  Inputs  for  the  Solid  Cylinder 


FORTRAN 

VARIABLE 

TR  11,043 
VARIABLE 

DESCRIPTION 

E_rod 

El 

Young’s  modulus 

zeta_rod 

Cl 

Structural  loss  factor 

mu_rod 

Vi 

Poisson  ratio 

r_rod 

Pi 

Density 

ao_rod 

a 

Outer  radius 

CYLINDER  1 

Table  2.  Inputs  for  Cylinder  1 


FORTRAN 

VARIABLE 

TR  11,043 
VARIABLE 

TR11,067 

VARIABLE 

DESCRIPTION 

E.lcyl 

E2 

El 

Young’s  modulus 

zeta_lcyl 

C2 

Cl 

Structural  loss  factor 

mu_lcyl 

V2 

Vi 

Poisson  ratio 

r_lcyl 

P2 

Pi 

Density 

ao_lcyl 

a 

a 

Inner  radius 

h_lcyl 

No  equivalent 

No  equivalent 

Cylinder  wall  thickness 
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CYLINDER  2 

Table  3.  Inputs  for  Cylinder  2 


FORTRAN 

VARIABLE 

TR  11,067 
VARIABLE 

DESCRIPTION 

E_2cyl 

El 

Young’s  modulus 

zeta_2cyl 

C2 

Structural  loss  factor 

mu_2cyl 

V2 

Poisson  ratio 

r_2cyl 

P2 

Density 

ao_2cyl 

b 

Inner  radius 

h_2cyl 

No  equivalent 

Cylinder  wall  thickness 

OUTER  FLUID 


Table  4.  Inputs  for  the  Outer  Fluid 


FORTRAN 

VARIABLE 

TR  11,043 
TR11067 
VARIABLE 

DESCRIPTION 

CO 

Speed  of  sound  in  the  outer  fluid 

ro 

Pi 

Density  of  the  outer  fluid 

INNER  FLUID 


Table  5.  Inputs  for  the  Inner  Fluid 


FORTRAN 

VARIABLE 

TR  11,067 
VARIABLE 

DESCRIPTION 

ci 

Ci 

Speed  of  sound  in  the  inner  fluid 

ri 

P, 

Density  of  the  iimer  fluid 
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GENERAL  VARIABLES 

Table  6.  General  Variables 


FORTRAN 

VARIABLE 

TR  11,043 

TR  11,067 
VARIABLES 

DESCRIPTION 

k 

k 

Calculation  wavenumber 

Om 

CO 

Calculation  frequency 

r 

n 

Calculation  radius 

n 

n 

Circumferential  order  number 

TD  11,065 

OUTPUT  VARIABLES 


Table  7.  Output  Setup  Variables 


FORTRAN 

VARIABLE 

VALUE 

DESCRIPTION 

tft 

0 

RADIAL  STRESS  or  FLUID  PRESSURE 

1 

LONGITUDINAL  STRESS 

2 

AXIAL  DISPLACEMENT 

3 

THETA  DISPLACEMENT 

4 

RADIAL  DISPLACEMENT 

5 

LONGITUDINAL  DISPLACEMENT 

6 

CIRCUMFERENTIAL  STRAIN 

7 

O 

RADIAL  STRAIN 

o 

9 

OPTICAL  PHASE  SENSITIVITY 

10 

OPTICAL  PHASE  SENSITIVITY 

exctype 

0 

LONGITUDINAL  EXCITATION 

1 

RADIAL  EXCITATION 

2 

CIRCUMFERENTIAL  EXCITATION 

emt 

1 

INNER  FLUID/CYLINDER  1/OUTER  FLUID 

2 

SOLID  CYLINDER/OUTER  FLUID 

3 

SOLID  CYLINDER/CYLINDER  2/FLUID 

4 

INNER  FLUID/CYLINDER  l/CYUNDER  2/OUTER 

FLUID 

Table  8.  Output  Variable 


FORTRAN 

VARIABLE 

VALUE 

DESCRIPTION 

Calculated 

Contains  the  calculated  quantity,  specified  by  variables  tft 
and  exctype. 
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SUBPROGRAM  DESCRIPTION 

SUBPROGRAM  mr2cf.f 

This  is  a  miniature  main  program  that  is  used  to  evaluate  the  various  wave  propagation 
models  described  earlier.  It  is  an  interactive  program  in  which  the  user  enters  the  wavenumber 
and  frequency  at  which  the  calculation  will  be  performed.  All  the  input  and  output  variables  are 
specified  as  well.  Appendix  C  contains  the  makefile  that  was  used  to  generate  the  executable. 

The  logical  flow  in  the  flow  charts  can  be  embedded  in  a  routine  that  will  generate  an  entire 
response  surface  over  a  range  of  wavenumbers  and  frequencies.  This  is  the  method  used  to 
generate  the  images  in  references  1  and  2. 


SUBPROGRAM  cbessl.f 

The  series  solutions  for  the  Bessel  functions  of  complex  argument  used  in  reference  1  were 
generated  with  the  functions  contained  in  cbessl.f  {emt  =  2  and  emt  =  3).  This  group  of  functions 
is  adequate  for  use  when  n  =  0  or  1  for  model  emt  =  1  or  emt  —  4.  When  n  is  greater  than  1,  the 
subroutine  cbessl.f  jnatlab  (appendix  D)  is  used  to  call  series  solutions  to  the  Bessel  functions 
provided  by  MATLAB  in  its  user  libraries.  The  MATLAB  user  libraries  are  not  provided  in  this 
document.  Any  Bessel  function  library  could  be  used  by  making  appropriate  changes  in  the 
cbessl.fjnatlab  file  and  linking  the  Bessel  function  library  of  choice  when  compiling. 

The  following  functions  are  contained  in  the  FORTRAN  subprogram  cbessl.f: 

Function  gamma(n) 

Gamma  function  of  argument  n. 

F  unction  fac(n) 

Factorial  of  argument  n. 
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Function  psi(n) 

Psi  function  of  argument  n. 

Double  Complex  Function  cbessj'(n,a,r) 

Bessel  function  of  the  first  kind  of  integer  order  n  and  argument  ar,  where  a  is  a  complex 
number. 

Double  Complex  Function  cbessy(n,a,r) 

Bessel  function  of  the  second  kind  of  integer  order  n  and  argument  ar,  where  a  is  a  complex 
number. 

Double  Complex  Function  cbessk(n,a,r) 

Modified  Bessel  function  of  integer  order  n  and  argument  ar,  where  a  is  a  complex  number. 

Double  Complex  Function  dlcbessk(n,a,r) 

First  derivative  with  respect  to  r  of  the  modified  Bessel  function  cbessk(n,a,r). 

Double  Complex  Function  d2cbessk(n,a,r) 

Second  derivative  with  respect  to  r  of  the  modified  Bessel  function  cbessk(n,a,r). 

Double  Complex  Function  dlcbessj(n,a,r) 

First  derivative  with  respect  to  r  of  the  Bessel  function  of  the  first  kind  bessj(n,a,r). 

Double  Complex  Function  d2cbessj(n,a,r) 

Second  derivative  with  respect  to  r  of  the  Bessel  function  of  the  first  kind  bessj(n,a,r). 

Double  Complex  Function  dlcbessy(n,ayT) 

First  derivative  with  respect  to  r  of  the  Bessel  function  of  the  second  kind  bessy{nxt,r). 

Double  Complex  Function  d2cbessy(n,a,r) 

Second  derivative  with  respect  to  r  of  the  Bessel  function  of  the  second  kind  bessy(n,a,r). 
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Double  Complex  Function  dlcbessi(n,a,r) 

First  derivative  with  respect  to  r  of  the  modified  Bessel  function  cbessi( n,a,r). 

Double  Complex  Function  d2cbessi(n,a,r) 

Second  derivative  with  respect  to  r  of  the  modified  Bessel  function  cbessi(n,a,r). 

Double  Complex  Function  cbesshl(n,a,r) 

Hankel  function  of  the  first  kind  of  integer  order  n  and  argument  ar,  where  a  is  a  complex 
number. 

Double  Complex  Function  cbessh2(n,a,r) 

Hankel  function  of  the  second  kind  of  integer  order  n  and  argument  ar,  where  a  is  a  complex 
number. 

Double  Complex  Function  dlcbesshl(n,a,r) 

First  derivative  with  respect  to  r  of  the  Hankel  function  of  the  first  kind  cbesshl( n,a,r). 

Double  Complex  Function  dlcbessh2(n,a,r) 

First  derivative  with  respect  to  r  of  the  Hankel  function  of  the  second  kind  cbessh2(n,a,r). 


SUBPROGRAM  rf.f 

Subroutine  RODjPOT(r,k,Om,n,cl_rod,ct_rod) 

Displacement  potentials  for  the  solid  cylinder  are  calculated.  This  subroutine  is  called  once 
at  r  =  a  in  order  to  facilitate  the  solution  of  the  undetermined  coefficients.  It  is  called  a  second 
time  in  cases  emt  =  2  and  3  when  the  calculation  radius  falls  within  the  envelope  of  the  solid 
cylinder.  The  following  variables  are  calculated  and  retiuned  by  this  subroutine  in  Common 
Block  /ROD/: 

65  C  DEFINITION  FOR  COMMON  BLOCK /ROD/ 

67  complex*  1 6  SP_rod,d  l_SP_rod,d2_SP_rod 

68  complex*16  VXP_rod,dl_VXPjrod,d2_VXP_rod 

69  complex*  16  VRTP_rod,dl_VRTP_rod,d2_VKrP_rod 
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Subroutine  SYS_MATRIX_ROD( n,k,ao_rod,Om,ro,co,sm) 

Coefficients  of  the  system  matrix,  sm,  for  the  solid  cylinder/outer  fluid  combination  (emt  —  2) 
are  calculated.  A  fully  populated  sm  matrix  is  returned. 


Subroutine  ABC_RODJSOLVE(exctype,sm) 

This  subroutine  solves  for  the  undetermined  coefficients  of  the  solid  cylinder/outer  fluid 
combination  (emt  =  2)  by  using  the  method  of  determinants  to  invert  the  system  matrix  sm.  This 
subroutine  returns  the  following  variables  in  Common  Blocks  /ROD/  and  /OFLUID/: 

65  C  DEFINmON  FOR  COMMON  BLOCK  /ROD/ 

70  complex*16  Al_rod,Bl_rod,Cl_rod 

80  C  DEFINITIONS  FOR  COMMON  BLOCK /OFLUID/ 

81 

82  complex*  16  M_OF 

Subroutine  ABC _ROD_INVERT(exctype,sm) 

Undetermined  coefficients  are  solved  for  through  the  inversion  of  matrix  sm  (emt  =  2).  The 
subroutine  MINV  is  called  from  ABC_RODJNVERT  to  perform  the  complex  matrix  inversion  on 
matrix  sm.  This  subroutine  returns  the  following  variables  in  Common  Block /ROD/  and 
/OFLUID/: 

65  C  DEFINITION  FOR  COMMON  BLOCK  /ROD/ 

70  complex*16  Al_rod,Bl_rod,Cl_rod 

80  C  DEFINITIONS  FOR  COMMON  BLOCK /OFLUID/ 

81 

82  complex*  1 6  M_OF 

Subroutine  OUTPUT(tft,nyk,r,value) 

The  particular  output  quantity  of  interest  for  the  solid  cylinder  at  radius  r  is  calculated  in  this 
subroutine  based  on  the  value  of  the  variable  tfi.  Cases  of  emt  =  2  and  3  are  applicable.  The 
calculated  quantity  is  returned  by  the  variable  value. 
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Subroutine  MINV( c,cinv,work,n,iflag) 

With  this  subroutine,  complex  system  matrices  are  inverted  for  all  permissible  values  of  the 
variable  emt.  Matrix  c  is  passed  to  MINV  for  inversion  and  cinv  is  the  inverted  matrix  that  is 
returned  from  the  subroutine. 


SUBPROGRAM  cl.f 
Subroutine  ClA_POT(r,k,Om,n) 

The  displacement  potentials  for  the  first  (inner)  cylinder,  evaluated  at  radius  r  =  a,  are 
calculated  in  this  subroutine.  This  subroutine  is  also  called  when  the  calculation  radius  falls 
within  the  inner  cylinder  {emt  =  1,  3,  and  4);  in  this  case,  r  is  passed  to  the  subroutine.  The 
following  variables  are  calculated  and  returned  in  Common  Block /CYLINDERl/: 

90  C  DEFINITIONS  FOR  COMMON  BLOCK /CYLINDERl/ 

92  complex*16  SP_CYl_al,dl_SP_CYl_al,d2_SP_CYl_al 

93  complex*16  SP_CYl_a2,dl_SP_CYl_a2,d2_SP_CYl_a2 

97  complex*16  VXP_CYl_al,dl_VXP_CYl_al,d2_VXP_CYl_al 

98  complex*16  VXP_CYl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2 

102  complex*16  VRTP_CYl_al,dl_VRTP_CYl_al,d2_VRTP_CYl_al 

103  complex*16  VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VRTP_CYl_a2 


Subroutine  ClBJ*OT(r,k,Om,n) 

The  displacement  potentials  for  cylinder  2,  evaluated  at  radius  r  =  h,  are  calculated  in  this 
subroutine.  The  following  variables  are  calculated  and  returned  in  Common  Block 
/CYLINDERl/: 

90  C  DEFINITIONS  FOR  COMMON  BLOCK /CYLINDERl/ 

94  complex*16  SP_CYl_bl,dl_SP_CYl_bl,d2_SP_CYl_bl 

95  complex*16  SP_CYl_b2,dl_SP_CYl_b2,d2_SP_CYl_b2 

99  complex*16  VXP_CYl_bl,dl_VXP_CYl_bl,d2_VXP_CYl_bl 

100  complex*16  VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2 

104  complex*16  VRTP_CYl_bl,dl_VRTP_CYl_bl,d2_VRTP_CYl_bl 

105  complex*16  VRTP_CYl_b2,dl_VRTP_CYl_b2,d2_VRTP_CYl_b2 
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Subroutine  SYS_MATRIX_RC1  ( n,k,ao_rod,ao_l cyl,bojcl,Om,ro,co,smrcl) 

The  system  matrix  for  emt  =  3  is  calculated  in  this  subroutine  and  is  returned  as  smrcl. 


Subroutine  ABCJRC1_INVERT(  n,exctype, smrcl, b) 

Undetermined  coefficients  are  solved  for  through  the  inversion  of  matrix  smrcl 

(emt  =  3).  The  subroutine  MINV  is  called  from  ABC_RC1_INVERT  to  perform  die  complex 

matrix  inversion.  The  following  variables  are  calculated  and  returned  in  Common  Blocks 

/ROD/,  /OFLUID/,  and  /CYLINDERl/: 

65  C  DEFINITION  FOR  COMMON  BLOCK  /ROD/ 

70  complex*  16  Al_rod,Bl_rod,Cl_rod 

80  CDEFINmONS  FOR  COMMON  BLOCK /OFLUID/ 

81 

82  complex*  16  M_OF 

90  C  DEFINITIONS  FOR  COMMON  BLOCK  /CYLINDERl/ 

108  complex*16  A1_C1,A2_C1,B1_C1  ,B2_C1,C1_C1,C2_C1 

Subroutine  OUTPUT JRCl  ( ^,n,k,r, value) 

When  the  desired  radius  for  output  falls  within  the  first,  or  inner,  cylinder,  this  subroutine  is 
used.  Cases  of  emt  =  1,  3,  and  4  are  applicable.  The  calculated  quanti^  is  returned  by  the 
variable  value. 
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SUBPROGRAM  c2.f 
Subroutine  C2BJ*OT(r,kyOm,n) 

The  displacement  potentials  for  the  second  (outer)  cylinder,  evaluated  at  radius  r  =  b,  are 
calculated  with  this  subroutine.  This  subroutine  is  also  called  when  the  calculation  radius  falls 
within  the  outer  cylinder  (emt  =  4);  in  this  case,  r  is  passed  to  the  subroutine.  The  following 
variables  are  calculated  and  returned  in  Common  Block /CYLINDER2/: 

130  C  DEFINITIONS  FOR  COMMON  BLOCK /CYLINDER2/ 

131 

132  complex*16  SP_CY2_bl,dl_SP_CY2_bl,d2_SP_CY2_bl 

133  complex*16  SP_CY2_b2,dl_SP_CY2_b2,d2_SP_CY2_b2 

137  complex*16  VXP_CY2_bl,dl_VXP_CY2_bl,d2_VXP_CY2_bl 

138  complex*  16  VXP_CY2_b2,dl_VXP_CY2_b2,d2_VXP_CY2_b2 

142  complex*16  VRTP_CY2_bl,dl_VRTP_CY2_bl.d2_VRTP_CY2_bl 

143  complex*16  VRTP_CY2_b2,dl_VRTP_CY2_b2,d2_VRTP_CY2_b2 


Subroutine  C2C_J*OT(r,k,Om,n) 

The  displacement  potentials  for  cylinder  2,  evaluated  at  radius  r  =  c,  are  calculated  with  diis 
subroutine.  The  following  variables  are  calculated  and  returned  in  Common  Block 
/CYLINDER2/: 

130  C  DEFINITIONS  FOR  COMMON  BLOCK  /CYLINDER2/ 

131 

134  complex*16  SP_CY2_cl.dl_SP_CY2_cl,d2_SP_CY2_cl 

135  complex*  16  SP_CY2_c2,dl_SP_CY2_c2,d2_SP_CY2_c2 

139  complex*16  VXP_CY2_cl,dl_VXP_CY2_cl,d2_VXP_CY2_cl 

140  complex*  16  VXP_CY2_c2,dl_VXP_CY2_c2,d2_VXP_CY2_c2 

144  complex*16  VRTP_CY2_cl,dl_VRTP_CY2_cl,d2_VRTP_CY2_cl 

145  complex*16  VRTP_CY2_c2,dl_VRTP_CY2_c2,d2_VRTP_CY2_c2 


Subroutine  SYS_MATRIXJiC2(n,k,ao_lcyl,bojcl,co_fi2,Om,ro,co,ri,ci,smrc2) 
The  system  matrix  smrc2  for  emt  =  4  is  calculated  and  returned  with  this  subroutine. 


15 


TD  11,065 


S  ubroutine  AB  C_fi.C2J[NVERT (n,exctype,smrc2,a,c ) 

Undetermined  coefficients  are  solved  for  through  the  inversion  of  matrix  smrc2 

(emt  =  4).  The  subroutine  MINV  is  called  from  ABC_RC2_INVERT  to  perform  the  complex 

matrix  inversion.  The  following  variables  are  returned  in  Common  Blocks  /OFLUID/, 

/CYLINDERl/,  /CYLINDER2/,  and  /IFLUID/; 

80  CDEFINmONS  FOR  COMMON  BLOCK /OFLUID/ 

82  complex*  16  M_OF 

90  C  DEFINITIONS  FOR  COMMON  BLOCK /CYUNDERl/ 

108  complex*16  A1_C1,A2_C1,B1_C1,B2_C1,C1_C1,C2_C1 

130  C  DEFINITIONS  FOR  COMMON  BLOCK /CYLINDER2/ 

149  complex*16  A1_C2,A2_C2,B1_C2,B2_C2,C1_C2,C2_C2 

170  C  DEFINITIONS  FOR  COMMON  BLOCK /EFLUID/ 

171 

172  complex*16  D_IF 

Subroutine  OUTPUT JRC2(tfifn,k,r, value) 

When  the  desired  radius  for  output  falls  within  the  second  or  outer  cylinder,  this  subroutine  is 
used.  Cases  of  emt  =  3  and  4  are  applicable.  The  calculated  quantity  is  returned  by  the  variable 
value. 


SUBPROGRAM  fluids.f 

Subroutine  IFL_POT(n,r,k,Om,ci) 

Inner  fluid  displacement  potentials  are  calculated  with  this  subroutine.  This  subroutine  is 
called  once  at  r  =  a  in  order  to  facilitate  the  solution  of  the  undetermined  coefficients.  It  is  called 
a  second  time  for  emt  =  1  and  4  when  the  desired  calculation  radius  corresponds  to  the  region  of 
the  iimer  fluid.  The  following  variables  are  calculated  and  returned  in  Common  Block 
/IFLUID/: 

170  C  DEFINITIONS  FOR  COMMON  BLOCK  /IFLUID/ 

171 

172  complex*  16  IFSC,dl_IFSC 
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Subroutine  OFLJ*OT(n,r,k,Om,co) 

Outer  fluid  displacement  potentials  are  calculated  with  this  subroutine.  This  subroutine  is 
called  once  B.tr  =  b  for  emt  =  1, 2,  and  3  and  once  at  r  =  c  for  emt  =  4.  It  is  called  a  second  time 
for  all  model  cases  where  the  desired  calculation  radius  corresponds  to  the  region  of  the  outer 
fluid.  TTie  following  variables  are  returned  in  the  Common  Block  /OFLUID/: 

80  C  DEFINITIONS  FOR  COMMON  BLOCK  /OFLUID/ 

81 

82  complex*16  OFSC,dl_OFSC 

Subroutine  OUTPUT_lF(tft, n,k,r, value, Ontfri) 

If  the  radius  at  which  output  is  desired  corresponds  to  the  region  occupied  by  the  inner  fluid, 
this  subroutine  is  used  to  calculate  either  the  pressure  or  velocity  transfer  function  based  on  the 
value  of  tfi.  The  calculated  quantity  is  returned  by  the  variable  value. 


Subroutine  OUTPUT _OF(tfl, n,k,r, value, Om,ro) 

If  the  radius  at  which  output  is  desired  corresponds  to  the  region  occupied  by  the  outer  fluid, 
this  subroutine  is  used  to  calculate  either  the  pressure  or  velocity  transfer  function  based  on  the 
value  of  tft.  The  calculated  quantity  is  returned  by  the  variable  value. 


SUBPROGRAM  smcl.f 

S ubroutine  SYS_MATRIXjCl  (n,k,aoJL cyl,bojcl,Om,ro,co,n,ci,smcl ) 

The  system  matrix  smcl  for  emt  *  1  is  calculated  and  returned  with  this  subroutine. 


Subroutine  ABCJC1J[NVERT( n,exctype,smcl,a,b) 

Undetermined  coefficients  are  solved  for  through  the  inversion  of  matrix  smrcl 
{emt  =  1).  The  subroutine  MINV  is  called  from  ABCJOIJNVERT  to  perform  the  complex 
matrix  inversion.  The  following  variables  are  calculated  and  returned  in  Common  Blocks 
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80  C  DEFINITIONS  FOR  COMMON  BLOCK /OFLUID/ 

81 

82  complex*  1 6  M_OF 

90  C  DEFINITIONS  FOR  COMMON  BLOCK  /CYLINDERl/ 

108  complex*16  A1_C1,A2_C1,B1_C1,B2_C1,C1_C1,C2_C1 

170  C  DEFINITIONS  FOR  COMMON  BLOCK  /IFLUID/ 

171 

172  complex*  1 6  D_IF 
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FLOW  CHARTS 

INNER  FLUID/CYLINDER  1/OUTER  FLUID 

This  case,  emt  =  1 ,  involves  three  media:  the  inner  fluid,  cylinder  1 ,  and  the  outer  fluid.  Flow 
chart  1  in  figure  3  displays  the  necessary  execution  sequence  for  this  model.  Subroutines 
C1A_P0T  and  C1B_P0T  calculate  the  Bessel  functions  needed  for  the  cylinder  displacement 
potentials  at  the  inner  and  outer  radii  of  the  cylinder,  respectively.  OFL_POT  and  IFL_POT 
calculate  the  Bessel  functions  needed  for  the  displacement  potentials  of  the  outer  and  inner  fluids, 
respectively.  The  results  of  these  four  subroutine  calls  are  passed  to  subroutine 
SYS_MATRIX_C1  via  common  blocks,  and  then  the  components  of  the  system  matrix,  smc\,  are 
calculated.  The  undetermined  coefficients  are  solved  for  after  system  matrix  smc\  is  inverted  in 
subroutine  ABC_C1_INVERT. 

At  this  point,  the  undetermined  coefficients  are  known  for  the  given  problem,  and  final  output 
can  be  calculated  at  a  radius  corresponding  to  any  one  of  the  three  media  mentioned  above.  The 
output  calculations  are  partitioned  by  the  three  i/ statements,  and  the  output  quantity  is  calculated 
based  on  the  value  of  the  radius  Tj  specified  for  the  ouq)ut  calculation.  If  Tj  is  less  than  or  equal 
to  the  inner  radius  of  the  cylinder,  the  nT.._POT  subroutine  is  used  to  calculate  the  Bessel 
functions  needed  for  the  inner  fluid  displacement  potential  and  then  OUTPUT_IF  is  used  to 
calculate  the  desired  output  quantity  according  to  the  value  of  variable  1ft.  If  is  less  than  or 
equal  to  the  outer  radius  of  the  cylinder  and  greater  than  the  inner  radius,  then  ClA_POT  is  used 
to  calculate  the  Bessel  functions  needed  for  the  displacement  potentials  and  OUTPUT_RCl  is 
used  to  calculate  the  desired  output  quantity  according  to  the  value  of  the  variable  tft.  When  ri  is 
greater  than  the  outer  radius  of  the  cylinder,  subroutine  OFL_POT  is  called,  and  the  Bessel 
functions  needed  for  the  outer  fluid  displacement  potential  at  radius  are 
calculated.  Subroutine  OUTPUT_OF  is  used  to  calculate  the  desired  ouq>ut  quantity  according 
to  the  value  of  the  variable  ift. 

The  subroutines  listed  in  appendix  D  have  been  modified  to  account  for  the  case  of 
circumferential  excitation.  Substitution  of  the  appendix  D  subroutines  into  subprograms  rff, 
smcl.f  cl./,  and  c2./is  required  in  order  to  calculate  the  response  from  circumferential  excitation 
^e- 
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r  ^  aojcyl 


SUBROUTINE  IFL_POT(n,r4c,Om,ci) 

.  I  - - 

SUBROUTINE  OUTPUT_IF(tft,n,k,r,value.Oin,ri) 


ao_lcyl  <  r  ^  bo_cl 


SUBROUTINE  ClA_POT(r,k,Om,n) 

•  r . .  . 

SUBROUTINE  OUTPUT_RCl(tft,n,k,r, value) 


r>  CO  c2 


SUBROUTINE  OFL_POT(n,rJc,Om,co) 

-  I  - , 

SUBROUTINE  OUTPUT_OF(tft,n4c,r,value,Om.ro) 


END  IF 
(emt  =  1) 
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SOLID  CYLINDER/OUTER  FLUID 

This  case,  emt  =  2,  involves  two  media:  the  solid  cylinder  and  the  outer  fluid.  In  figure  4, 
flow  chart  2  displays  the  necessary  execution  sequence  for  this  model.  Subroutine  ROD_POT 
calculates  the  Bessel  functions  needed  for  the  solid  cylinder  displacement  potentials  evaluated  at 
the  outer  radius  of  the  cylinder.  Subroutine  OFL_POT  calculates  the  Bessel  functions  needed 
for  the  outer  fluid  displacement  potential.  The  results  of  these  two  subroutine  calls  are  passed  to 
subroutine  SYS_MATRIX_ROD  via  common  blocks,  and  the  components  of  the  system  matrix 
sm  are  calculated.  The  undetermined  coefficients  are  solved  for  after  system  matrix  sm  is 
inverted  in  subroutine  ABC_ROD_INVERT. 

At  this  point,  the  undetermined  coefficients  are  known  for  the  given  problem,  and  final  output 
can  be  calculated  at  a  radius  corresponding  to  any  one  of  the  two  media  mentioned  above.  The 
output  calculations  are  partitioned  by  the  two  if  statements,  and  the  output  quantity  is  calculated 
based  on  the  value  of  the  radius  (rj)  specified  for  output  calculation.  If  ri  is  less  than  the  outer 
radius  of  the  cylinder,  then  ROD_POT  is  used  to  calculate  the  Bessel  functions  needed  for  the 
displacement  potentials  and  OUTPUT  is  used  to  calculate  the  desired  output  quantity  according  to 
the  value  of  the  variable  tft.  When  rj  is  greater  than  the  outer  radius  of  the  cylinder,  subroutine 
OFL_POT  is  called  and  the  Bessel  functions  needed  for  the  outer  fluid  displacement  potential  at 
radius  Tj  are  calculated.  Subroutine  OUTPUT_OF  is  used  to  calculate  the  desired  output 
quantiQr  according  to  the  value  of  the  variable  ft. 
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Figure  4.  Flow  Chart  2 — Solid  Cylinder  and  Outer  Fluid  for  emt  =  2 
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SOLID  CYLINDER/CYLINDER  2/OUTER  FLUID 

This  case,  emt  —  3,  involves  three  media:  the  solid  cylinder,  cylinder  2,  and  the  outer 
fluid.  In  figure  5,  flow  chart  3  displays  the  necessary  execution  sequence  for  this 
model.  Subroutines  C1A_P0T  and  C1B_P0T  calculate  the  Bessel  functions  needed  for  the 
displacement  potentials  of  cylinder  2  at  the  inner  and  outer  radii  of  the  cylinder, 
respectively.  Subroutine  ROD_POT  calculates  the  Bessel  functions  needed  for  the  solid 
cylinder  displacement  potentials  at  r  =  a.  OFL_POT  calculates  the  Bessel  functions  needed  for 
the  outer  fluid  displacement  potential  a  r  -  b.  The  results  of  these  four  subroutine  calls  are 
passed  to  subroutine  SYS_MATRIX_RC1  via  common  blocks,  and  then  the  components  of  the 
system  matrix,  smrc\,  are  calculated.  The  undetermined  coefficients  are  solved  for  after  system 
matrix  smrcl  is  inverted  in  subroutine  ABC_RC1_INVERT. 

At  this  point,  the  undetermined  coefficients  are  known  for  the  given  problem,  and  final  output 
can  be  calculated  at  a  radius  corresponding  to  any  one  of  the  three  media  mentioned  above.  The 
ouq>ut  calculations  are  partitioned  by  the  three  (f  statements,  and  the  ouq)ut  quantity  is  calculated 
based  on  the  value  of  the  radius  (r^)  specified  for  output  calculation.  If  is  less  than  or  equal  to 
the  outer  radius  of  the  solid  cylinder,  the  ROD_POT  subroutine  is  used  to  calculate  the  Bessel 
functions  needed  for  the  displacement  potentials  at  radius  and  then  OUTPUT  is  used  to 
calculate  the  desired  output  quantity  according  to  the  value  of  variable  tft.  If  is  less  than  or 
equal  to  the  outer  radius  of  cylinder  2  and  greater  than  the  inner  radius,  then  Cl  A_POT  is  used  to 
calculate  the  Bessel  functions  needed  for  the  displacement  potentials  and  OUTPUT_RCl  is  used 
to  calculate  the  desired  output  quantity  according  to  the  value  of  the  variable  tft.  When  rj  is 
greater  than  the  outer  radius  of  cylinder  2,  subroutine  OFL_POT  is  called  and  the  Bessel 
functions  needed  for  the  outer  fluid  displacement  potential  at  radius  are 
calculated.  Subroutine  OUTPUT.OF  is  used  to  calculate  the  desired  output  quantity  according 
to  the  value  of  the  variable  tft. 
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(emt  ss  3) 


SUBROUTINE  Cl  A POT(ao lcyl,k,Om,n) 


SUBROUTINE  ClB POT(bo cl4c,Om,n) 


SUBROUTINE  ROD_POT(ao_rod4c,Om,n,cl_rod,ct_rod) 


SUBROUTINE  OFL POT(n,bo cl,k,Om,co) 


SUBROUTINE  SYS_MATRlX_RCl(n4c,ao_rc)d,ao_lcyl,bo_c  1  ,Oin4‘o,co,sinrc  1 ) 


SUBROUTINE  ABC_RCl_INVERr(n,exctype,smrcl,bo_cl) 


r  ^  ao_rod 


SUBROUTINE  ROD_POT(r,k,Om,n,cl_rod,ct_rod) 

I  - - 

SUBROUTINE  OUTPUT(tft,nJc,r,value) 


ao_lcyI  <  r  ^  bo_cl 


SUBROUTINE  ClA_POT(r4c,Om,n) 

-  I  _ 

SUBROUTINE  OUTPUT_RCl(tft,n,k,r,  value) 


r>  bo  cl 


SUBROUTINE  OFL_POT(n,r,k,Om,co) 

I  ^  I _ 

SUBROUTINE  OUTPUT_OF(tft,n4c,r,value,Om,ro) 


END  IF 
(emt  =  3) 
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INNER  FLUID/CYLINDER  1/CYLINDER  2/OUTER  FLUID 

This  case,  emt  =  4,  involves  four  media:  the  inner  fluid,  cylinder  1,  cylinder  2,  and  the  outer 
fluid.  In  figure  6,  flow  chart  4  displays  the  necessary  execution  sequence  for  this 
model.  Subroutines  C1A_P0T  and  ClB_POT  calculate  the  Bessel  functions  needed  for  the 
displacement  potentials  of  cylinder  1  at  the  inner  and  outer  radii  of  the  cylinder, 
respectively.  Subroutines  C2B_POT  and  C2C_POT  calculate  the  Bessel  functions  needed  for 
the  displacement  potentials  of  cylinder  2  at  r  =  b  and  r  =  c,  respectively.  OFL_POT  calculates 
the  Bessel  functions  needed  for  the  displacement  potential  of  the  outer  fluid  at  r  =  c.  The  results 
of  these  six  subroutine  calls  are  passed  to  subroutine  SYS_MATRIX_RC2  via  common  blocks, 
and  then  the  components  of  the  system  matrix,  smrc2,  are  calculated.  The  undetermined 
coefficients  are  solved  for  after  system  matrix  smrc2  is  inverted  in  subroutine 
ABC_RC2_INVERT. 

At  this  point,  the  undetermined  coefficients  are  known  for  the  given  problem,  and  final  ouq>ut 
can  be  calculated  at  a  radius  corresponding  to  any  one  of  the  four  media  mentioned  above.  The 
output  calculation  is  partitioned  by  the  four  if  statements,  and  the  output  quantity  is  calculated 
based  on  the  value  of  the  radius  (ri)  specified  for  output  calculation.  If  is  less  than  or  equal  to 
the  inner  radius  of  cylinder  1,  IFL_POT  is  called  to  evaluate  the  Bessel  functions  needed  for  the 
fluid  displacement  potential.  Subroutine  OUTPUTJF  is  used  to  calculate  the  desired  output 
quantity  according  to  the  value  of  the  variable  0.  If  Tj  is  less  than  or  equal  to  the  outer  radius  of 
cylinder  1  and  greater  than  the  irmer  radius,  subroutine  C1A_P0T  is  used  to  calculate  the  Bessel 
functions  needed  for  the  displacement  potentials  of  cylinder  1  at  radius  and  then  subroutine 
OUTPUT  is  used  to  calculate  the  desired  output  quantity  according  to  the  value  of  the  variable 
0.  If  Ti  is  less  than  or  equal  to  the  outer  radius  of  cylinder  2  and  greater  than  the  inner  radius, 
then  C2B_POT  is  used  to  calculate  the  Bessel  functions  needed  for  the  displacement  potentials  at 
radius  Tj  and  OUTPUT_RC2  is  used  to  calculate  the  desired  output  quantity  according  to  the 
value  of  the  variable  tft.  When  Tj  is  greater  than  the  outer  radius  of  cylinder  2,  subroutine 
OFL_POT  is  called  and  the  Bessel  functions  needed  for  the  displacement  potential  of  the  outer 
fluid  at  radius  Tj  are  calculated.  Subroutine  OUTPUT_OF  is  used  to  calculate  the  desired  output 
quantity  according  to  the  value  of  the  variable  0. 
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Figure  6.  Flow  Chart  4 — Inner  Fluid,  Cylinder  1,  Cylinder  2,  and  Outer  Fluid  for  emt  =  4 
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Figure  6.  Flow  Chart  4 — Inner  Fluid,  Cylinder  1,  Cylinder  2,  and  Outer  Fluid  for  emt  -  4 

(Cont’d) 
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SUBPROGRAM  LISTINGS 

LISTING  FOR  mr2cf.f 
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mr2cf.f  Thu  Oct  19  16:34:21  1995 

1  C  TEST  PROGRAM  “mr2cf.f  FOR  TESTING  THE  TWO  CYLINDER  INNER/OUTER 

FLUID 

2  C  SIMULATION  5/16/95 

3 

4  C  TEST  PROGRAM  VARIABLES 

5 

6 

7  C  character*!  msg 

8  complex*  16  a,z,Jn, In,  Yn,Kn, mains 

9  ieal*8  SI,bb 

10  integer  FA, msg, f 

11 
12 

13  C  ***********************************************************♦***♦****!(:♦* 

14 

15  C  VARIABLES  NEEDED  TO  SIMULATE  MAIN  PROGRAM  Xtota 

16 

17  integer  iptmax 

1 8  parameter  (iptmax  =  80000) 

19  integer  n,tft,exctype,jk,emt 

20  real*8  r,ao_rod,mu_rod,r_rod 

21  real*8  k,Om,co4‘o,zeta_rod 

22  complex*  1 6  g(iptmax),E_rod 

23  real*8  ri,ci 

24 

25  real*8  E_lcyl,zeta_lcyl,mu_lcyl,ao_lcyl,r_lcyl,h_lcyl 

26  real*8  E_2cyl,zeta_2cyl,mu_2cyl,ao_2cyl,r_2cyl,h_2cyl 

27 

28  C  ************************************************!f:***5*:*sK5!c*******:t:5i:**3ic*** 

29 

30  C  NEW  ADDITIONS  TO  MAIN  PROGRAM 

31 

32  integer  ganima,fac,iflag,size 

33  ieal*8  psi 

34  complex*  1 6  cl_rod,ct_rod,sm(4,4) 

35  complex*  1 6  work(4,8),sminv(4,4) 

36  complex*  16  value 

37  complex*  1 6  Ec_rod 

38  double  complex  cbessj,cbessi,cbessy,cbessk,cbessh  1  ,cbessh2 

39  double  complex  dlcbessj,d2cbessj 

40  double  complex  dlcbessy,d2cbessy 

4 1  double  complex  d  1  cbessk,d2cbessk 

42  double  complex  dlcbessi,d2cbessi 

43  double  complex  dlcbesshl,dlcbessh2 


30 


TD  11,065 


44 

45  C  ADDITIONS  NEEDED  FOR  THE  FIRST  CYLINDER  BEYOND  THE  ROD/FLUID 

46 

47  real*8  bo_cl 

48  complex*16  sinrcl(10,10),sinrclinv(10,10),workrcl(10,20) 

49  complex*  1 6  Ec_c  1 

50 

51  C  ADDITIONS  NEEDED  FOR  THE  SECOND  CYLINDER  BEYOND  THE  ROD/ 

CYLINDER 

52 

53  real*8  co_c2 

54  complex*16  sinrc2(13,13),smrc2inv(13,13),workrc2(13,26) 

55  complex*  16  Ec_c2 

56 

57  C  ADDITIONS  NEEDED  FOR  CYLINDER  WITH  INNER  AND  OUTER  FLUIDS 

ONLY 

58 

59  complex*16  smcl(7,7),smclinv(7,7),workcl(7,14) 

60 
61 
62 

63  C  *****************************************************3|C********M5****5iC*** 

64 

65  C  DEFINITION  FOR  COMMON  BLOCK  /ROD/ 

66 

67  complex*  16  SP_rod,dl_SP_rod,d2_SP_rod 

68  complex*  16  VXP_rod,dl_VXP_rod,d2_VXP_rod 

69  complex*  16  VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 

70  complex*16  Al_rod,Bl_rod,Cl_rod,lame_rod,shear_rod 

71 

72  common  /ROD/  SP_rod,dl_SP_rod,d2_SP_rod,VXP_rod, 

73  ldl_VXP_rod,d2_VXP_rod,VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 

74  l,Al_rod,B  l_rod,Cl_rod,lame_rod,shear_rod 

75 

76  C  ****************************************************s»::i:***5|c****H:**5j::t:5*:**s»: 

77 

78  C  *************************************s|c*5|c**5|:****5i!*5!«3|c5|5*********5ic***5|::i:*3i!** 

79 

80  C  DEFINITIONS  FOR  COMMON  BLOCK  /OFLUID/ 

81 

82  complex*  16  OFSC,dl_OFSC,M_OF 

83- 

84  common /OFLUID/ OFSC,dl_OFSC,M_OF 

85 

86  C 

87 
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88 

89 

90  C  DEFINITIONS  FOR  COMMON  BLOCK  /CYLINDERl/ 

91 

92 

complex*  1 6  SP_CY l_al,dl_SP_CYl_al ,d2_SP_CYl_al 

93 

complex*  1 6  SP_CY  l_a2,dl_SP_CYl_a2,d2_SP_CYl_a2 

94 

complex*  1 6  SP_C Y  l_b  1  ,dl_SP_CYl_b  1  ,d2_SP_C Yl_b  1 

95 

complex*16SP_CYl_b2,dl_SP_CYl_b2,d2_SP_CYl_b2 

96 

97 

complex*  16  VXP_CYl_al,dl_VXP_CYl_al,d2_VXP_CYl_al 

98 

complex*  1 6  VXP_C  Yl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2 

99 

complex*16  VXP_CYl_bl,dl_VXP_CYl_bl,d2_VXP_CYl_bl 

100 

complex*16  VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2 

101 

102 

complex*16VRTP_CYl_al,dl_VRTP_CYl_al,d2_VRTP_CYl_al 

103 

complex*  1 6  VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VRTP_CYl_a2 

104 

complex*16  VRTP_CYl_bl,dl_VRTP_CYl_bl,d2_VRTP_CYl_bl 

105 

complex*16  VRTP_CYl_b2,dl_VRTP_CYl_b2,d2_VRTP_CYl_b2 

106 

107 

complex*  1 6  lame_c  1  ,shear_c  1  ,cl_c  1  ,ct_c  1 

108 

complex*16Al_Cl,A2_Cl,Bl_Cl,B2_Cl,Cl_Cl,C2_Cl 

109 

no 

common  /CYLINDERl/  SP_CYl_al,dl_SP_CYl_al,d2_SP_CYl  al, 

111 

1 

SP_CYl_a2,dl_SP_CYl_a2,d2_SP_CYl_a2, 

112 

1 

SP_CYl_bl,dl_SP_CYl_bl,d2_SP_CYl_bl, 

113 

1 

SP_CYl_b2,dl_SP_CYl_b2,d2_SP_CYl_b2, 

114 

1 

VXP_CYl_al,dl_VXP_CYl_al,d2_VXP_CYl_al, 

115 

1 

VXP_CYl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2, 

116 

1 

VXP_CYl_bl,dl_VXP_CYl_bl42_VXP_CYl_bl, 

117 

1 

VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2, 

118 

1 

VRTP_CYl_al,dl_VRTP_CYl_al,d2_VRTP_CYl  al, 

119 

1 

VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VRTP_CYl_a2. 

120 

1 

VRTP_CYl_bl,dl_VRTP_CYl_bl,d2_VRTP_CYl_bl, 

121 

1 

VRTP_CYl_b2,dl_VRTP_CYl_b2,d2_VRTP_CYl_b2, 

122 

1 

lame_c  1  ,shear_c  1  ,cl_c  1  ,ct_c  1 , 

123 

1 

A1_C1,A2_C1,B1_C132_C1,C1_C1,C2_C1 

124 

125 

Q  5j:***:|5*:J::i:5i:*:|c*H::|:****:i!*********:Jc:i:*H:2f:*5ic****!*:5j:**si:**3i:*:i:*3t:s|:**:f:****3K*!|::|:*3f:***** 

- 

126 

127 
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C  “CYLINDER  2  VARIABLES  NEEDED  TO  EXPAND  BEYOND  ROD/CYLINDER 
CASE  ** 

C  DEFINITIONS  FOR  COMMON  BLOCK  /CYLINDER2/ 

complex*16SP_CY2_bLdl_SP_CY2_bl,d2_SP_CY2_bl 
complex*  16  SP_CY2_b2,dl_SP_CY2_b2,d2_SP_CY2_b2 
complex*16SP_CY2_cl,dl_SP_CY2_cl,d2_SP_CY2_cl 
complex*16  SP_CY2_c2,dl_SP_CY2_c2,d2_SP_CY2_c2 

complex*16VXP_CY2_bl,dl_VXP_CY2_bl,d2_VXP_CY2_bl 
complex*16  VXP_CY2_b2,dl_VXP_CY2_b2,d2_VXP_CY2_b2 
complex*  16  VXP_CY2_c  1  ,dl_VXP_CY2_cl,d2_VXP_CY2_c  1 
complex*16  VXP_CY2_c2,dl_VXP_CY2_c2,d2_VXP_CY2_c2 

complex*16  VRTP_CY2_bl,dl_VRTP_CY2_bLd2_VRTP_CY2_bl 
complex*  16  VRTP_CY2_b2,dl_VRTP_CY2_b2,d2_VRTP_CY2_b2 
complex*16VRTP_CY2_cl,dl_VRTP_CY2_cl,d2_VRTP_CY2_cl 
complex*  16  VRTP_CY2_c2,dl_VRTP_CY2_c2,d2_VRTP_CY2_c2 

complex*  1 6  Iame_c2,shear_c2,cl_c2,ct_c2 

complex*  16  A1_C2,A2_C2,B  1_C2,B2_C2,C1_C2,C2_C2 

common  /CYLINDER2/  SP_CY2_bl,dl_SP_CY2_bl,d2_SP_CY2_bl, 

1  SP_CY2_b2,dl_SP_CY2_b2,d2_SP_CY2_b2, 

1  SP_CY2_cl,dl_SP_CY2_cl,d2_SP_CY2_cl, 

1  SP_CY2_c2,dl_SP_CY2_c2,d2_SP_CY2_c2, 

1  VXP_CY2_b  1  ,dl_VXP_CY2_bLd2_VXP_CY2_bl, 

1  VXP_CY2_b2,dl_VXP_CY2_b2,d2_VXP_CY2_b2, 

1  VXP_CY2_cl,dl_VXP_CY2_cl,d2_VXP_CY2_cl, 

1  VXP_CY2_c2,dl_VXP_CY2_c2,d2_VXP_CY2_c2, 

1  VRTP_CY2_bl41_VRTP_CY2_bl,d2_VRTP_CY2_bl, 

1  VRTP_CY2_b2,dl_VRTP_CY2_b2,d2_VRTP_CY2_b2, 

1  VRTP_CY2_cl,dl_VRTP_CY2_cl,d2_VRTP_CY2_cl, 

1  VRTP_CY2_c2,dl_VRTP_CY2_c2,d2_VRTP_CY2_c2, 

1  Iame_c2,shear_c2,cl_c2,ct_c2, 

1  A1_C2,A2_C231_C2,B2_C2,C1_C2,C2_C2 

Q  ****5jc*5j:*:|c*******5|:********sJ:5|c********5|c***********3|s**s|c5|:******5ie*******H«*5f;* 
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170  C  DEFINITIONS  FOR  COMMON  BLOCK  /EFLUID/ 

171 

172  complex*16  IFSC,dl_IFSC,D_IF 

173 

174  common  /EFLUID/  IFSC,dl_IFSC,D_IF 

175 

176 

177  C  *********************************** 

178 

179 

180  C  “ROD  CASE”  VARIABLES  NEEDED  TO  SIMULATE  MAIN  PROGRAM 

181 

182  E_rod  =  7.20D2 

183  mu_rod  =  0.17D0 

184  r_rod  =2600.0D0 

185  zeta_rod  =  O.ODO 

186 

187  C  “ROD  CASE”  MAIN  PROGRAM  CALCULATION  SECTION  ADDITIONS  ***** 

188 

189  Ec_rod  =dcmplx(1.0D0,zeta_rod)*E_rod 

1 90  lame_rod  =  Ec_rod*mu_rod/((  1 .0D0+mu_rod)*(  1 .0D0-2.0D0*mu_rod)) 

1 9 1  shear_rod  =  Ec_rod/(2.0D0*(  1  .ODO  +  mu_rod)) 

192  cl_rod  =  zsqrt((lame_rod  +  2.0D0*  shear_rod)/r_rod) 

193  ct_rod  =  zsqrt(shear_rod  /  r_rod) 

194 

195  C  ********************************************************************** 

196 

197  C  “ROD/CYLINDER”  VARIABLES  NEEDED  TO  SIMULATE  MAIN  PROGRAM 

198 

199  E_lcyl  =  7.1D10 

200  zeta_lcyl  =  O.ODO 

201  mu_lcyl  =  0.33D0 

202  ao_lcyl  =  125.0D-6 

203  r_lcyl  =2700.0D0 

204  h_lcyl  =  375.0D-6 

205 

206 

207  C  “ROD/CYLl  CASE”  MAIN  PROGRAM  CALCULATION  SECTION  ADDITIONS  ** 

208 

209  Ec_cl  =  dcmplx(1.0D0,zeta_lcyl)*E_lcyl 

210  lame_cl  =Ec_cl*mu_lcyl/((L0D0+mu_lcyl)*(1.0D0-2.0D0*mu_lcyl)) 

211  shear_cl  =Ec_cl/(2.0D0*(1.0D0+mu_lcyl)) 

212  cl_cl  =zsqrt((lame_cl +2.0D0*shear_cl)/r_lcyl) 

213  ct_cl  =zsqrt(shear_cl/r_lcyl) 

214  bo_cl  =  ao_lcyl  +  h_lcyl 

215 
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216  C  ************************************♦♦♦*!(!♦♦♦*♦*♦*!(!♦*:)!♦*♦♦ 

217 

218  C  ***************************************:(:****:|:******!C********:):***^:****,,: 

219 

220  C  “TWO  CYLINDER”  VARIABLES  NEEDED  TO  SIMULATE  MAIN  PROGRAM 

221 

222  E_2cyl  =  7.1D10 

223  zeta_2cyl  =  .ODO 

224  mu_2cyl  =  .33D0 

225  ao_2cyl  =  400.0D-6 

226  r_2cyl  =2700.0D0 

227  h_2cyl  =  lOO.OD-6 

228 

229 

230  C  “ROD/CYLl  CASE”  MAIN  PROGRAM  CALCULATION  SECTION  ADDITIONS  * 

231 

232  Ec_c2  =dcmplx(1.0D0,zeta_2cyl)*E_2cyl 

233  lame_c2  =Ec_c2*mu_2cyl/((1.0D0+mu_2cyl)*(1.0D0-2.0D0*mu_2cyl)) 

234  shear_c2  =  Ec_c2/(2.0DO*(  1 .0D0+mu_2cyl)) 

235  cl_c2  =  zsqrt((lame_c2  +  2.0D0*shear_c2)/r_2cyl) 

236  ct_c2  =  zsqrt(shear_c2/r_2cyl) 

237  co_c2  =  ao_2cyl  +  h_2cyl 

238 

239  C  *******************************************»**=|:***=t:s|!******!f!****:|cH:***** 

240 

241 

242 

243  C  RADIAL  STRESS/(Pr  or  Px) 

244  C  LONGITUDINAL  STRESS 

245  C  AXIAL  DISPLACEMENT 

246  C  THETA  DISPLACEMENT 

247  C  RADIAL  DISPLACEMENT 

248  C  LONGITUDINAL  STRAIN  ell/(ProrPx) 

249  C  THETA  STRAIN  ett/(ProrPx) 

250  C  RADIAL  STRAIN  err/(ProrPx) 

251  C 

252  C  OPTIC  exx=0@k=0  ((dp/p)(r))/(Pr  or  Px) 

253  C  OPTIC  exx=const@k=0  ((dp/p)(r))/(Pr  or  Px) 

254 

255  C  RADIAL  EXCITATION  exctype  =  1 

256  C  AXIAL  EXCITATION  exctype  =  0 

257 

258  C  INNER  FLUID/CYLINDER/OUTER  FLUID 

259  C  ROD  AND  OUTER  FLUID 

260  C  ROD/CYLINDER/FLUID 

261  C  INNER  FLUID/TWO  CYLINDERS/OUTER  FLUID  emt  =  4 


tft  =  0 
tft=l 
tft  =  2 
tft  =  3 
tft  =  4 
tft  =  5 
tft  =  6 
tft  =  7 
tft  =  8 
tfl  =  9 
tft=10 


emt=  1 
emt  =  2 
emt  =  3 
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262 

263 


264 

k 

=  0.1D0 

265 

Om 

=  6000.0D0 

266 

ao_rod  =  125.0D-6 

267 

r 

=  150.0D-6 

268 

n 

=  0 

269 

tft 

=  5 

270 

exctype  =  1 

271 

emt 

=  3 

272 

jk 

=  1 

273 

274 

CO 

=  1500.0D0 

275 

ro 

=  lOOO.ODO 

276 

277 

ci 

=  150.0D0 

278 

ri 

=  l.ODO 

279 

280 

gOk) 

=  3.0D0 

281 

size 

=  3 

282 

iflag 

=  0 

283 

284  mains  =  zsqrt(k**2  -  (Om**2/cl_rod**2))*ao_rod 

285 

286  msg  =  0 

287 

288  do  while  (msg  .ne.  1) 

289 

290  print  *,’Enter  tftjc,f,emt:  (where  emt=l  ICYLINDER, 

291  1  emt=2ROD,  emt=3  ROD&CYL,  emt=4  2CYLINDERS, 

292  1 using  mr2cf.f)’ 

293 

294  read(*,20)tft,k,f,emt 

295  20  format(i2,fl0.4,i6,il) 

296 

297  Om  =  2.0DO*3. 14D0*f 

298 

299  write(*,10)n,r,ao_lcyl,bo_cl,co_c2,tft 

300  10  format(/,’MAIN  PROGRAM  n  = ‘,i2,’  r=‘,E15.7, 

301  r  ao_lcyl  =  ‘315.7,’  bo_cl  =  ‘,E15.7,’  co_c2  =  ‘315.7/ 

302  l,’tft=‘,i2) 

303 

304 

305 
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306  C  INNER  FLUID/CYLINDER  1/OUTER  FLUID  (emt=l)  :Jc  jf:  5lc  *  *  *  :ic  *  *  *  *  *  :|:  ^  ♦  *  ♦  *  *  *  * 

307  if  (emt  .eq.  1)  then 

308 

309 

310  CALL  ClA_POT(ao_lcyl,k,Om,n) 

3 1 1  CALL  ClB_POT(bo_cl  Jk,Om,n) 

312  CALL  OFL_POT(n,bo_c  1  ,k,Om,co) 

313  CALL  IFL_POT(n,ao_lcyl,k,Om,ci) 

314  CALL  SYS_MATRIX_Cl(n,k,ao_lcyl,bo_cl, 

315  10m,ro,co,ri,ci,smcl) 

316  CALL  ABC_Cl_INVERT(n,exctype,smcl,ao_lcyl,bo_cl) 

317 

318  if  (r  .le.  ao_lcyl)  then 

319 

320  C  PRESSURE  AND  VELOCITY  TRANSFER  FUNCTIONS  (INNER  FLUID) 

321  CALL  IFL_POT  (n,r,k,Oin,ci) 

322  CALL  OUTPUT_IF(tft,n4c,r,value,Oni,ri) 

323 

324  elseif  (r  .le.  bo_cl  .and.  r  .gt.  ao_lcyl)  then 

325 

326  CALLClA_POT(r,k,Om,n) 

327  CALL  OUTPUT_RCl(tft,n,k,r, value) 

328 

329  C  PRESSURE  AND  VELOCITY  TRANSFER  FUNCTIONS  (OUTER  FLUID) 

330  elseif  (r  .gt.  co_c2)  then 

331 

332  CALL  OFL_POT(n,r,k,Om,co) 

333 

334  write(*,400)dl_OFSC,OFSCJ^_OF 

335  400  fonnat(/,’dl_OFSC  =  ‘,2E15.7,’  OFSC  =  ‘,2E15.7,’  M_OF  = 

336  12E15.7y) 

337 

338  CALL  OUTPUT_OF(tft,n,k,r,  value, Onuo) 

339 

340  endif 

341 

342  if(tft  .gt.  l)then 

343  values  value*(1.0D-6) 

344  endif 

345 

346  g(jk)  =  value 

347  C  ************************************************* ***************HcH5iic*:|«5j: 

348 

349 
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350  C  SOLID  CYLINDER/OUTER  FLUID  (emt=2)  :|c :!« :j:  sis  ^  :jc  a|:  at: :|c  :|e  :jc  :4c  *  5|c  He  *  5ic  :f:  4s 

351  elseif  (emt  .eq.  2)  then 

352 

353  CALL  ROD_POT(ao_rod,k,Oin,n,cl_rod,ct_rod) 

354  CALL  OFL_POT(n,ao_rod,k,Om,co) 

355  CALL  SYS_MATRIX_ROD(n,k,ao_rod,Om,ro,co,sm) 

356  CALL  ABC_ROD_INVERT(exctype,sm) 

357 

358  if  (r  .le.  ao_rod)  then 

359 

360  CALL  ROD_POT(r,k,Om,n,cl_rod,ct_rod) 

361  CALLOUTPUT(tft,n,k,r,value) 

362 

363  C  PRESSURE  AND  VELOCITY  TRANSFER  FUNCTIONS 

364  elseif  (r  .gt.  ao_rod)  then 

365 

366  CALL  OFL_POT(n,r,k,Om,co) 

367  write(*,400)dl_OFSC,OFSC,M_OF 

368  CALL  OUTPUT_OF(tft,n,k,r,  value, Om,ro) 

369 

370  endif 

371 

372  if(tft  .gt.  l)then 

373  value  =  value*(  1  .OD-6) 

374  endif 

375 

376  g(jk)  =  value 

377  C  ******************************!*:♦*****♦****♦**♦****♦***♦****♦♦*♦*****♦#: 

378 
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379  C  SOLID  CYLINDER/CYLINDER  1/  OUTER  FLUID  (emt=3)  JK****^*****:}:**^!  ****** 

380  elseif  (emt  .eq.  3)then 

381 

382  CALL  ClA_POT(ao_lcyl,k,Om,n) 

383  CALLClB_POT(bo_cl,k,Om,n) 

384  CALL  ROD_POT(ao_rod,k,Om,n,cl_rod,ct_rod) 

385  CALL  OFL_POT(n,bo_cl,k,Om,co) 

386  CALL  SYS_MATRIX_RCl(n,k,ao_rod,ao_lcyl,bo_cl,Om,ro,co 

387  l,smrcl) 

388  CALL  ABC_RCl_INVERT(n,exctype,snircl,bo_cl) 

389 

390  if  (r  .le.  ao_rod)  then 

391 

392  CALL  ROD_POT(r,k,Om,n,cl_rod,ct_rod) 

393  CALL  OUTPUT(tft,n,k,r,value) 

394 

395  elseif  (r  .le.  bo_cl  .and.  r  .gt.  ao_rod)  then 

396 

397  CALLClA_POT(r,k,Om,n) 

398  CALLOUTPUT_RCl(tft,n,k,r,value) 

399 

400  C  PRESSURE  AND  VELOCITY  TRANSFER  FUNCTIONS 

401  elseif  (r  .gt.  bo_cl)  then 

402 

403  CALL  OFL_POT(n,r,k,Om,co) 

404  write(*,400)dl_OFSC,OFSC,M_OF 

405 

406  CALL  OUTPUT_OF(tft,n,k,r,value,Om,ro) 

407 

408  endif 

409 

410  if(tft  .gt.  l)then 

411  value  =  value*(  1  .OD-6) 

412  endif 

413 

414  g(jk)  =  value 

415 

416  C  :^:*******:!c5^:*:^:♦:^^**:^c:^::^::|:♦:|c*:^:  H:****:|:*5j:***********************:f:  He********** 

417 
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418  C  INNER  FLUID/CYLINDER  1/CYLINDER  2/OUTER  FLUID  SfS  SjC  Sfs  ^  9}C  ^  ^  SjC  ^  ^  SfC  2{C  9fs 

419  elseif  (emt  .eq.  4)then 

420 

421  CALL  ClA_POT(ao_lcyl,k,Om,n) 

422  CALLClB_POT(bo_cl,k,Om,n) 

423  CALL  C2B_POT(ao_2cyl,k,Om,n) 

424  CALL  C2C_POT(co_c2,k,Om,n) 

425  CALL  IFL_POT(n,ao_lcyl,k,Om,ci) 

426 

427  write(*,410)dl_IFSC,IFSC,D_IF 

428  410  formate/, ’dl.IFSC  =  ‘,2E15.7,’  IFSC  =  ‘,2E15.7,’  D_F  = 

429  12E15.7/) 

430  CALL  OFL_POT(n,co_c2,k,Om,co) 

43 1  CALL  S  YS_MATRIX_RC2(n  Jc,ao_lcyl,bo_c  1  ,co_c2,Om,ro,co 

432  l,ri,ci,smrc2) 

433  CALL  ABC_RC2_INVERT(n,exctype,smrc2,ao_lcyl,co_c2) 

434 

435  write(*,400)dl_OFSC,OFSC,M_OF 

436 

437  if  (r  .le.  ao_lcyl)  then 

438 

439  C  PRESSURE  AND  VELOCITY  TRANSFER  FUNCTIONS  (INNER  FLUID) 

440  CALL  IFL_POT(n,r,k,Om,ci) 

441  CALL  OUTPUT_IF(tft,n,k,r,  value, Om,ri) 

442 

443  elseif  (r  .le.  bo_cl  .and.  r  .gt.  ao_lcyl)  then 

444 

445  CALLClA_POT(r,k,Om,n) 

446  CALLOUTPUT_RCl(tft,n,k.r,value) 

447 

448  elseif  (r  .le.  co_c2  .and.  r  .gt.  bo_cl)  then 

449 

450  CALL  C2B_POT(r,k,Om,n) 

451  CALL  OUTPUT_RC2(tft,n,k,r,  value) 

452 

453  C  PRESSURE  AND  VELOCITY  TRANSFER  FUNCTIONS  (OUTER  FLUID) 

454  elseif  (r  .gt.  co_c2)  then 

455 

456  CALL  OFL_POT(n,r,k,Om,co) 

457 

458  write(*,400)dl_OFSC,OFSC,M_OF 

459 

460  CALL  OUTPUT_OF(tft,n,k,r,value,Om,ro) 

461 

462  endif 

463 
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464  .gt.  l)then 

465  values  value*(1.0D-6) 

466  endif 

467 

468  g(jk)  =  value 

469 

470  endif 

471 

472  g(jk)  =  10.0D0*logl0(cdabs((value)**2)) 

473 

474  C  3}:  ^  ^  3):  :ic  :ic :ic  ^  sjc  :ic ^  ^ *  4:  *  3K :|e  4:  :|c ^  ^  s):  4:  4:  :fc  die  :1c  He 

475 

476  write  (*,51)value 

477  51  fonnat(‘SUB  OUTPUT  THE  ANSWER  IS  value  =  ‘2el5.7) 

478  write  (*,60)g(jk) 

479  60  fonnat(‘SUB  OUTPUT  THE  ANSWER  IS  g(jk)  =  ‘2el5.7) 

480  write  (*,70)k,Om 

481  70  format(‘SUB  OUTPUT  k=‘,el5.7, 

482  r  Om=‘,f7.2y) 

483 

484 

485 

486 

487  print  *,’Type  1  if  you  wish  to  quit’ 

488  read(*,4)  msg 

489  4  fonnat(il) 

490 

491  end  do 

492  stop 

493  end 

494 

495 

496 
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cbessLf 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 

12  10 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29  10 

30 

31 

32 

33 

34 

35 

36 

37 


Thu  Oct  19  16:47:22  1995 


function  gamma(n) 
integer  i,n,sum,gamma 
if(n  .eq.  0  .or.  n  .eq.  1)  then 
gamma  =  1 
else 
sum=n 

do  10,  i=l,  n-1 
sum  =  sum*(n-i) 
continue 
gamma  =  sum 
endif 
return 
end 


function  fac(n) 
integer  n,sum,fac,i 
if(n  .eq.  0  .or.  n  .eq.  1)  then 
fac=  1 
else 
sum=n 

do  10,  i=l,  n-1 
sum  =  sum*(n-i) 
continue 
fac  =  sum 
endif 
return 
end 
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38 

function  psi(n) 

39 

integer  n,na,i 

40 

real*8  sum,psi,euler 

41 

parameter  (euler5:.5772 1566490 1 5328606) 

42 

sum  =  0.0 

43 

na  =  iabs(n) 

44 

if  (na  .eq.  1)  then 

45 

psi  =  -  euler 

46 

else 

A1 

do  10,  i=l,na-l 

48 

sum  =  sum  +  (1.0/i) 

49  10 

continue 

50 

psi  =  -euler  +  sum 

51 

endif 

52 

return 

53 

end 

54 

55 

56 

57 

58 

double  complex  function  cbessj(n,a,r) 

59 

60 

integer  n,limit,j,k,na,fac 

61 

real*8  r,pi,zm 

62 

complex*  16  a,z,sum,total,Am,Bm 

63 

double  complex  cbessj 

64 

65 

real*8  fo2 

66 

complex*  16  al,a2,a3,a4,bl  ,b2,b3,b4,ez,ez2 

67 

68 

parameter  (pi=3. 1415926535897932384D0) 

69 

70 

z  =  a*r 

71 

na  =  iabs(n) 

72 

zm  =  cdabs(z) 

73 

74 

75 

fh2  =  4.0DO*n**2 

76 

ez  =8.0D0*z 

77 

ez2  =  (8.0D0*z)**2 

78 

79 

if  (zm  .le.  3.0)  then 

80 

81 

limit  =  10 

82 

total  =  (0.0D0,0.0D0) 

83 
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84  C  Abramowitz  and  Stegum  Equation  9.1.10 

85 

86  do  10,  k=0,  limit 

87  j  =  na  +  k 

88  sum  =  ((-0.25D0*z**2)**k)/(fac(k)*fac(j)) 

89  total  =  total  +  sum 

90  10  continue 

91  cbessj  =  ((z/2.0D0)**na)*total 

92 

93  if  (n  .It.  0)  then 

94  cbessj  =  ((-1.0DO)**na)*cbessj 

95 

96 

97  end  if 

98 

99  else 

100 

101  C  Large  Argument  Calculation  Korn  and  Korn  21.8-44  and  45 

102 

103 

104  al  =  (fh2  -  1.0D0)*(fh2  -  9.0D0)/(2.0D0*ez2) 

105 

106  a2  =  al*(fh2  -  25.0D0)*(fh2  -  49.0D0)/(ez2*12.0D0) 

107 

108  a3  =  a2*(fh2  -  81.0D0)*(fh2  -  121.0DO)/(ez2*30.0DO) 

109 

110  a4  =  a3*(fh2  -  169.0D0)*(fh2  -  225.0D0)/(ez2*56.0D0) 

111 
112 

113  Am  =  l.ODO  -  al  +  a2  -  a3  +  a4 

114 

115  bl=  (fh2- l.ODOyez 

116 

117  b2  =  bl*(fh2  -  9.0D0)*(fh2  -  25.0D0)/(ez2*6.0D0) 

118 

119  b3  =  b2*(fh2  -  49.0D0)*(fh2  -  81.0D0)/(ez2*20.0D0) 

120 

121  b4  =  b3*(fii2  -  121.0D0)*(fh2  -  169.0D0)/(ez2*42.0D0) 

122 

123 

124  Bm  =  bl -b2  +  b3-b4 
125- 

126  cbessj  =  cdsqrt(2.0D0/(pi*z))*(Am*cdcos(z  -  n*pi/ 

127  1  2.0D0  -  pi/4.0DO)  -  Bm*cdsin(z  -  n*pi/2.0D0  -  pi/ 

128  1  4.0D0)) 

129 
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130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157  10 

158 

159 

160 
161 
162 

163 

164 

165 

166 


endif 


return 

end 


double  complex  function  cbessi(n,a,r) 

integer  n,limit,j,k,na,fac 
real*8  r 

complex*16  a,z,sum,total 
double  complex  cbessi 

z  =  a*r 
na=iabs(n) 
limit  =  10 
total  =  (0.0, 0.0) 

do  10,  k=0,  limit 
j  =  na  +  k 

sum  =  ((.25*z**2)**k)/(fac(k)*fac(j)) 
total  =  total  +  sum 
continue 

cbessi  =  ((z/2)**na)*total 


return 

end 
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167 

double  complex  function  cbessy(n,a,r) 

168 

169 

integer  n,na, limit, j,k,l,m,fac 

170 

real*8  r,pi,psi,zm 

171 

complex*  16  a,z,z2,partl  ,part2,part3,suml  ,sum2 

172 

complex*16  total  l,total2,  Am, Bm 

173 

174 

double  complex  cbessj,cbessy 

175 

176 

parameter  (pi=3. 1415926535897932384) 

177 

z  =  a*r 

178 

z2  =  .5*z 

179 

na  =  iabs(n) 

180 

181 

zm  =  cdabs(z) 

182 

183 

IF  (zm  .le.  3.0)  THEN 

1 84  C  Abramowitz  and  Stegum  Equation  9.1.11 

185 

186 

parti  =  (0.,0.) 

187 

part2  =  (0.,0.) 

188 

part3  =  (0.,0.) 

189 

total  1  =  (0.,0.) 

190 

total2  =  (0.,0.) 

191 

192 

limit  =  10 

193 

do  10,  k  =  0,  na-1 

194 

j  =  na-k-1 

195 

suml  =  (fac(j)/fac(k))*(.25*z**2)**k 

196 

totall  =  totall  +  suml 

197 

198 

10 

continue 

199 

200 

parti  =  (-((.5*z)**-na)/pi)*totall 

201 

202 

part2  =  (2.0/pi)*cdlog(z2)*cbessj(na,a,r) 

203 

do  20,  k  =  0,  limit 

204 

j=k+l 

205 

1  =  na+k+1 

206 

m  =  na+k 

207 

sum2  =  (psi(j)+psi(l))*(-.25*z**2)**k/(fac(k)*fac(m)) 

208 

total2  =  total2+sum2 

209 

210 

20 

continue 

211 

212 

part3  =  ((-(.5*z)**na)/pi)*total2 
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213  cbessy  =  partl+pait2+part3 

214 

215 

216  if  (n  .It.  0)  then 

217  cbessy  =  ((-l)**na)*cbessy 

218  end  if 

219 

220 

221  ELSE 

222 

223  C  Large  Argument  Calculation  Korn  and  Korn  21.8-44  &  45 

224 

225  Am  =  1.0  -  (4.0*n**2  -  1.0)*(4*n**2  -  9.0)/(2.0*(8*z)**2) 

226  1  +  (4.0*n**2-1.0)*(4.0*n**2-9.0)*(4.0*n**2-25.0)* 

227  1  (4.0*n**2-49.0)/(24.0*(8.0*z)**4) 

228 

229  Bm  =  (4.0*n**2-1.0)/(8.0*z)  -  (4.0*n**2-1.0)*(4.0*n**2-9.0)* 

230  1  (4.0*n**2-25.0)/(6.0*(8.0*z)**3) 

231 

232  cbessy  =  cdsqrt(2.0/(pi*z))*(Am*cdsin(z  -  n*pi/2.0  -  pi/4.0)  + 

233  1  Bm*cdcos(z  -  n*pi/2.0  -  pi/4.0)) 

234 

235  ENDIF 

236 

237 

238  return 

239  end 

240 

241 

242 

243 


48 


TD  11,065 


244  double  complex  function  cbessk(n,a,r) 

245 

246  integer  n, na, limit, j,k,l,m,fac 

247  real*8  r,pi,psi 

248  complex*16  a,z,z2,partl,part2,part3,suml,sum2,totall,total2 

249  double  complex  cbessi,cbessk 

250 

251  parameter  (pi=3.1415926535897932384) 

252 

253  z  =  a*r 

254  z2  =  .5*z 

255  na  =  iabs(n) 

256 

257 

258  parti  =  (0.,0.) 

259  part2  =  (0..0.) 

260  part3  =  (0.,0.) 

261  totall  =  (0.,0.) 

262  total2  =  (0.,0.) 

263  limit  =  10 

264 

265  do  10,  k  =  0,  na-1 

266  j  =  na-k-1 

267  suml  =  (fac(j)/fac(k))*(-.25*z**2)**k 

268  totall  =  totall  +  suml 

269  10  continue 

270 

271  parti  =  (((.5*z)**-na)/2.)*totall 

272 

273  parti  =  ((-l)**(na+l))*cdlog(z2)*cbessi(na,a,r) 

274 

275  do  20,  k  =  0,  limit 

276  j=k+l 

277  1  =  na+k+1 

278  m  =  na+k 

279  sum2  =  (psi(j)+psi(l))*(.25*z**2)**k/(fac(k)*fac(m)) 

280  total2  =  total2+sum2 

281  20  continue 

282 

283  part3  =  ((-l)**na)*((.5*z)**na)*.5*total2 

284 

285  cbessk  =  partl+part2+part3 

286 

287  return 

288  end 

289 
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290 

291 

292 

293  double  complex  function  dlcbessk(n,a,r) 

294 

295  real*8  r 

296  complex*  16  a 

297  integer  n 

298  double  complex  cbessk,dlcbessk 

299 

300  dlcbessk  =  -a*cbessk(n+l  ,a,r)+(n/r)*cbessk(n,a,r) 

301 

302  return 

303  end 

304 

305 

306 

307 

308  double  complex  function  d2cbessk(n,a,r) 

309 

310  real*8  r 

311  complex*  16  a 

312  integer  n 

313  double  complex  d2cbessk 

314 

315  d2cbessk  =  (1.0,1.0) 

316 

317  return 

318  end 

319 

320 

321 

322 

323  double  complex  function  dlcbessj(n,a,r) 

324 

325  real*8  r 

326  complex*  16  a 

327  integer  n 

328  double  complex  cbessj  ,d  1  cbessj 

329 

330  dlcbessj  =  -a*cbessj(n+l,a,r)+(n/r)*cbessj(n,a,r) 

331 

332  return 

333  end 

334 

335 
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336 

337 

338  double  complex  function  d2cbessj(n,a,r) 

339 

340  real*8  r 

341  complex*  16  a 

342  integer  n 

343  double  complex  cbessj,d2cbessj 

344 

345 

346  d2cbessj  =  ((a**2)/4.0D0)*(cbessj(n-2,a,r)  -  2.0D0* 

347  1  cbessj(n,a,r)  +  cbessj(n+2,a,r)) 

348 

349 

350  return 

351  end 

352 

353 

354 

355 

356  double  complex  function  dlcbessy(n,aj) 

357 

358  ieal*8  r 

359  complex*  16  a 

360  integer  n 

361  double  complex  cbessy,dlcbessy 

362  complex*  16  Y2,Y3 

363 

364 

365  IF  (n  .eq.  0)  THEN 

366 

367  dlcbessy  =  -  a*cbessy(l,a,r) 

368 

369  ELSEIF  (n  .eq.  1)  THEN 

370 

371  Y2  =  -cbessy(0,a,r)  +  2.0D0*cbessy(  1  ,a,r)/(a*j) 

372  dlcbessy  =  -  a*Y2  +  cbessy(l,a,r)/r 

373 

374  ELSEIF  (n  .eq.  2)  THEN 

375 

376  Y2  =  -cbessy(0,a,r)  +  2.0D0*cbessy(l,a,r)/(a*r) 

377  Y3  =  (8.0D0/((a*r)**2)  -  1.0D0)*cbessy(l,a,r)  - 

378  1  4.0D0*cbessy(0,a,r)/(a*r) 

379  dlcbessy  =  -  a*Y3  +2.0D0*Y2/r 

380 

381 
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382  ELSEIF  (n  .eq.  -1)  THEN 

383 

384  dlcbessy  =  -a*cbessy(0,a,r)  -  cbessy(-l,a,r)/r 

385 

386  ELSEIF  (n  .eq.  -2)  THEN 

387 

388  Y2  =  -cbessy(0,a,r)  +  2.0D0*cbessy(l,a,r)/(a*r) 

389  dlcbessy  =  -a*cbessy(-l,a,r)  -2.0D0*Y2/r 

390 

391 

392  ENDIF 

393 

394 

395  return 

396  end 

397 

398 

399 

400 

401  double  complex  function  d2cbessy(n,a,r) 

402 

403  real*8  r 

404  complex*  16a 

405  integer  n 

406  double  complex  cbessy,d2cbessy 

407  complex*16  Y2,Y3,Y4 

408 

409 

410 

411  IF  (n  .eq.  0)  THEN 

412 

413  Y2  =  -cbessy(0,a,r)  +  2.0l)0*cbessy(l,a,r)/(a*r) 

414  d2cbessy  =  a**2*  Y2  -  a*cbessy(  1  ,a,r)/r 

415 

416  ELSEIF  (n  .eq.  1)  THEN 

417 

418  Y2  =  -cbessy(0,a,r)  +  2.0D0*cbessy(l,a,r)/(a*r) 

419  Y3  =  (8.0D0/((a*r)**2)  -  1.0D0)*cbessy(l,a,r)  - 

420  1  4.0IX)*cbessy(0,a,r)/(a*r) 

421  d2cbessy  =  a**2*Y3  -  3.0D0*a*Y2/r 

422 

423  ELSEIF  (n  .eq.  2)  THEN 

424 

425  Y2  =  -cbessy(0,a,r)  +  2.0D0*cbessy(l,a,r)/(a*r) 

426  Y3  =  (8.0D0/((a*r)**2)  - 1 .0D0)*cbessy(  1  ,a,r)  - 

427  1  4.0D0*cbessy(0,a,r)/(a*r) 
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428  Y4  =  (l.ODO  -  24.0D0/((a*r)**2))*cbessy(0,a,r)+ 

429  1  (48.0D0/((a*r)**3)  -  8.0D0/(a*r))*cbessy(l,a,r) 

430  d2cbessy  =  a*Y3/r  +  (2.0D0/r**2  -  a**2)*Y2 

431 

432 

433  ELSEIF  (n  .eq.  -1)  THEN 

434 

435  d2cbessy  =  a**2*cbessy(  1  ,a,r)  +  a*cbessy(0,a,r)/r  + 

436  1  2.0D0*cbessy(-l,a,r)/(r**2) 

437 

438  ELSEIF  (n  .eq.  -2)  THEN 

439 

440  Y2  =  -cbessy(0,a,r)  +  2.0D0*cbessy(  1  ,a,r)/(a*r) 

441  d2cbessy  =  a**2*cbessy(0,a,r)  +  3.0DO*a*cbessy(-l,a,r)/r  + 

442  1  6.0DO*Y2/(r**2) 

443 

444 

445  ENDIF 

446 

447  return 

448  end 

449 

450 

451 

452 

453  double  complex  function  d  1  cbessifn.a^-) 

454 

455  real*8  r 

456  complex*  16  a 

457  integer  n 

458  double  complex  cbessi,dlcbessi 

459 

460  dlcbessi  =  a*cbessi(n+l,a,r)+(n/r)*cbessi(n,a,r) 

461 

462  return 

463  end 

464 

465 

466 

467 


53 


TD  11,065 

468 

double  complex  function  <12cbessi(n,a,r) 

469 

470 

real*8  r 

471 

complex*  16  a 

472 

integer  n 

473 

double  complex  d2cbessi 

474 

475 

d2cbessi  =  (1,0, 1.0) 

476 

All 

return 

478 

end 

479 

480 

481 

482 

483 

double  complex  function  cbesshl(n,a,r) 

484 

real*8  r 

485 

complex*  16  a 

486 

integer  n 

487 

double  complex  cbessj,cbessy,cbesshl 

488 

489 

cbesshl  =  cbessj(n,a,r)+(0.0, 1.0)*cbessy(n,a,r) 

490 

491 

return 

492 

end 

493 

494 

495 

496 

497 

double  complex  function  cbessh2(n,a,r) 

498 

real*8  r 

499 

integer  n 

500 

complex*  16  a 

501 

double  complex  cbessj,cbessy,cbessh2 

502 

503 

cbessh2  =  cbessj(n,a,r)-(0.0, 1.0)*cbessy(n,a,r) 

504 

505 

return 

- 

506 

end 

507 

508 

509 

510 
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511  double  complex  function  dlcbesshl(n,a,r) 

512  integer  n 

513  real*8  r 

514  complex  a 

515  double  complex  dlcbessj,dlcbessy,dlcbesshl 

516 

517  dlcbesshl  =  dlcbessj(n,a,r)  +  (0.0,1.0)*dlcbessy 

518  1  (n,a,r) 

519 

520  return 

521  end 

522 

523 

524 

525 

526  double  complex  function  dlcbessh2(n,a,r) 

527  integer  n 

528  real*8  r 

529  complex  a 

530  double  complex  dlcbessj,dlcbessy,dlcbessh2 

531 

532  dlcbessh2  =  dlcbessj(n,a,r)  -  (0.0,1.0)*dlcbessy 

533  1  (n,a,r) 

534 

535  return 

536  end 

537 


55 


LISTING  FOR  rf.f 


TD  11,065 


rf.f  SatJun  10  14:42:17  1995 

2  C 

3  C  subprogram  “rf.f’ 

4  C 

5  C  This  subprogram  was  written  and  developed  by  Mark  S.  Peloquin 

6  C 

7  C  at  NUWCDETNLON  6/10/95.  As  of  6/10/95,  there  are  no  known  bugs. 

8  C 

9  C  Please  notify  the  author  if  bugs  are  found  (203)  440-5433. 

10  C 

12 

13 

14  SUBROUTINE  ROD_POT(r,k,Om,n,cl_rod,ct_rod) 

15 

16 

17  C  EXTERNAL  VARIABLES 

18 

19  integer  n 

20  real*8  r,k,Om 

2 1  complex*  1 6  cl_rod,ct_rod 

22 

23  common  /ROD/  SP_rod,dl_SP_rod,d2_SP_rod,VXP_rod, 

24  ldl_VXP_rod,d2_VXP_rod,VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 

25  1 ,  A  l_rod,B  l_rod,C  l_rod,lame_rod,shear_rod 

26 

27  complex*  16  SP_rod,dl_SP_rod,d2_SP_rod 

28  complex*16  VXP_rod,dl_VXP_rod,d2_VXP_rod 

29  complex*  16  VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 

30  complex*  1 6  A  l_rod,B  l_rod,C  l_rod,lame_rod,shear_rod 

31 

32 

33  double  complex  cbessj 

34  double  complex  dl  cbessj  ,d2cbessj 

35 

36  C  INTERNAL  VARIABLES 

37 

38  complex*  1 6  p,q 

39 

40 

41  p  =  zsqrt((Om**2/cl_rod**2)  -  k**2) 

42  d2_SP_rod  =  d2cbessj  (n,p,r) 

43  dl_SP_rod  =  dl  cbessj  (n,p,r) 

44  SP_rod=  cbessj(n,p,r) 
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45 

46 

47  q  =  zsqit((Om**2/ct_rod**2)  -  k**2) 

48  d2_VXP_rod  =  d2cbessj(n,q,r) 

49  dl_VXP_rod  =  dlcbessj(n,q,r) 

50  VXP_rod=  cbessj(n,q,r) 

51 

52  d2_VRTP_rod  =  d2cbessj(n+l,q,r) 

53  dl_VRTP_rod  =  dlcbessj(n+l,q,r) 

54  VRTP_rod=  cbessj(n+l,q,r) 

55 

56 

57  return 

58  end 

59 

60 
61 
62 

63 

64  SUBROUTINE  SYS_MATRIX_ROD(n,k,ao_rod,Om,ro,co,sm) 

65 

66  C  EXTERNAL  VARIABLES 

67 

68  integer  n 

69  real*8  k,ao_rod,ro,co,Om 

70  complex*  16  sm(4,4) 

71 

72  common  /ROD/  SP_rod,dl_SP_rod,d2_SP_rod,VXP_rod, 

73  ldl_VXP_rod,d2_VXP_rod,VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 

74  l,Al_rod,B  l_rod,Cl_rod,lame_rod,shear_rod 

75 

76 

77  complex*  16  SP_rod,dl_SP_rod,d2_SP_rod 

78  complex*16  VXP_rod,dl_VXP_rod,d2_VXP_rod 

79  complex*  16  VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 

80  complex*  1 6  A  l_rod,B  l_rod,C  l_rod,lame_rod,shear_rod 

81 

82  C  ****************************************************************** 

83 

84  C  DEFINITIONS  FOR  COMMON  BLOCK  /OFLUID/ 

85 

86  common  /OFLUID/  OFSC,dl_OFSC,M_OF 

87 

88  complex*16  0FSC,dl_OFSC,M_OF 

89 

90  C  *************************************************:(:***********)|=***X! 


58 


TD  11,065 


91 

92  C  INTERNAL  VARIABLES 

93 

94  real*8  b2,k2 

95  integer  n2 

96 

97  b2  =  ao_rod**2 

98  n2  =  n**2 

99  k2  =  k**2 

100 
101 

102  sm(l,l)  =  (lame_rod  +  2.0D0*shear_rod)*d2_SP_rod  + 

103  1  (lame_rod/ao_rod)*dl_SP_rod  - 

104  1  (n2^2  +  k2)*lame_rod*SP_rod 

105 

106  sm(l,2)  =  -2.0D0*n*shear_rod*VXP_rod/b2  + 

107  1  2.0D0*shear_rod*n*dl_VXP_rod/ao_rod 

108 

109  sm(l,3)  =  (0.0D0,L0D0)*2.0D0*shear_rod*k*dl_VRTP_rod 

110 

111  sm(2,l)  =  (0.0D0,1.0D0)*2.0D0*shear_rod*k*dl_SP_rod 

112 

113  sm(2,2)  =  (0.0D0,1.0D0)=*=k*n*VXP_rod*shear_rod/ao_rod 

114 

1 15  sm(2,3)  =  shear_rod*(VRTP_rod*(n/b2  -  k2  +  1 .0D0/b2)  - 

116  1  dl_VRTP_rod*(n/ao_rod+1.0D0/ao_rod)-d2_VRTP_rod) 

117 

118  sm(3,l)  =  2.0D0*shear_rod*((n/b2)*SP_rod  -  (n/ao_rod)* 

119  1  dl_SP_rod) 

120 

121  sm(3,2)  =  shear_rod*(-d2_VXP_rod  +  (1.0D0/ao_rod)* 

122  1  dl_VXP_rod-(n2/b2)*VXP_rod) 

123 

124  sm(3,3)  =  (O.ODO,  1 .0D0)*(dl_VRTP_iod  -  VRTP_rod* 

125  1  (1.0D0/ao_rod  +  n/ao_rod))*k*shear_rod 

126 

127  C  ********************************************************************** 

128  C  Tins  TERM  WILL  CHANGE  SIGN  IF  THE  PRESSURE  CONDITION  IS 

REVERSED 

129 

130  sm(l,4)= +Om**2*ro*OFSC 

131 

132  C  ********************************************************************** 

133  sm(2,4)  =  (0.0D0,0.0D0) 

134 

135  sm(3,4)  =  (O.ODO.O.ODO) 
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136 

137  sm(4,l)  =  dl_SP_rod 

138 

139  sm(4,2)  =s  n*VXP_rod/ao_rod 

140 

141  sm(4,3)  =  (0.0D0,1.0D0)*k*VRTP_rod 

142 

143  sm(4,4)  =  -dl_OFSC 

144 

145 

146  return 

147  end 

148 

149 

150 

151 

152  SUBROUTINE  ABC_ROD_SOLVE(exctype,sm) 

153 

154  C  EXTERNAL  VARIABLES 

155 

156  integer  exctype 

157  complex*16  sm(3,3) 

158 

159  common  /ROD/  SP_rod,dl_SP_rod,d2_SP_rod,VXP_rod, 

160  ldl_VXP_rod,d2_VXP_rod,VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 

161  l>Al_rod,Bl_rod,Cl_rod,lame_rod,shear_rod 

162 

163 

164  complex*16  SP_rod,dl_SP_rod,d2_SP_rod 

165  complex*  16  VXP_rod,dl_VXP_rod,d2_VXP_rod 

1 66  complex*  1 6  VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 

167  complex*16  Al_rod,Bl_rod,Cl_rod,lame_rod,shear_rod 

168 

169  C  INTERNAL  VARIABLES 

170 

171  complex*  16  detA 

172 

173  C  RADIAL  EXCITATION  exctype  =  1 

174  C  AXIAL  EXCITATION  exctype  =  0 

175 

176  if  (exctype  .eq.  1)  then 

177  Al.rod  =  sm(2,2)*sm(3,3)  -  sm(3,2)*sm(2,3) 

178  Bl_rod  =  -sm(2,l)*sm(3,3)  +  sm(3,l)*sm(2,3) 

179  Cl_rod  =  sm(2,l)*sm(3,2)  -  sm(3,l)*sm(2,2) 

180  elseif  (exctype  .eq.  0)  then 

181  Al_rod  =  -sm(l,2)*sm(3,3)  -  sm(3,2)*sm(  1,3) 
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182  Bl_rod=  sm(l,l)*sm(3,3)  +  sm(3,l)*sm(l,3) 

183  Cl_rod  =  -sm(l,l)*sm(3,2)  -  sm(3,l)*sm(l,2) 

184  endif 

185 

186  detA  =  (sm(l,l)*sm(2,2)*sm(3,3)  + 

187  lsm(l,2)*sm(2,3)*sm(3,l)  +  sm(2,l)*sm(3,2)*sm(l,3))- 

188  l(sm(3,l)*sm(2,2)*sm(l,3)  +  sm(l,l)*sm(3,2)*sm(2,3)+ 

189  lsm(l,2)*sm(2,l)*sin(3,3)) 

190 

191  Al_rod  =  Al_rod/detA 

192  B  l_rod  =  B  l_rod/detA 

193  Cl_rod  =  Cl_rod/detA 

194 

195  return 

196  end 

197 

198 

199 

200 

201  SUBROUTINE  ABC_ROD_INVERT(exctype,sm) 

202 

203 

204  C  EXTERNAL  VARIABLES 

205 

206  integer  exctype 

207  complex*  16  sm(4,4) 

208 

209  common  /ROD/  SP_rod,dl_SP_rod,d2_SP_rod,VXP_rod, 

210  ldl_VXP_rod,d2_VXP_rod,VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 

211  l,Al_rod,B  l_rod,Cl_rod,lame_rod,shear_rod 

212 

213 

214  complex*16  SP_rod,dl_SP_rod,d2_SP_rod 

215  complex*16  VXP_rod,dl_VXP_rod,d2_VXP_rod 

216  complex*16  VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 

217  complex*16  Al_rod,Bl_rod,Cl_rod,lame_rod,shear_rod 

218 

219  C  ********************************************************************** 

220 

221  C  DEFINITIONS  FOR  COMMON  BLOCK  /OFLUID/ 

222 

223  complex*16  OFSC,dl_OFSCJ^_OF 

224 

225  common /OFLUID/ OFSC,dl_OFSC,M_OF 

226 

227  C  ********************************************************************** 
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228 

229  C  INTERNAL  VARIABLES 

230 

231  integer  n,iflag 

232  complex*  1 6  sminv(4,4),work(4,8) 

233 

234  n  =  4 

235  iflag  =  0 

236 

237  CALL  MINV(sm,sminv,work,n,iflag) 

238 

239 

240 

241  C  RADIAL  EXCITATION  exctype  =  1 

242  C  AXIAL  EXCITATION  exctype  =  0 

243 

244  if  (exctype  .eq.  1)  then 

245  Al_rod  =  -sminv(l,l) 

246  B  l_rod  =  -sniinv(2, 1 ) 

247  Cl_rod  =  -sininv(3,l) 

248  M_OF  =  -sminv(4,l) 

249  elseif  (exctype  .eq.  0)  then 

250  A  l_rod  =  -sminv(  1 ,2) 

251  B  l_rod  =  -sminv(2,2) 

252  Cl_rod  = -sminv(3,2) 

253  M_OF  =  -simnv(4,2) 

254  endif 

255 

256 

257  return 

258  end 

259 

260 
261 
262 
263 
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264  SUBROUTINE  OUTPUT(tft,n,k,r,  value) 

265 

266  C  EXTERNAL  VARIABLES 

267 

268  integer  n,tft 

269  real*8  k,r,zero 

270  complex*  1 6  value 

271 

272  common  /ROD/  SP_rod,dl_SP_rod,d2_SP_rod,VXP_rod, 

273  ldl_VXP_rod,d2_VXP_rod,VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 

274  l,Al_rod3  l_rod,Cl_rod,lame_rod,shear_rod 

275 

276 

277  complex*  16  SP_rod,dl_SP_rod,d2_SP_rod 

278  complex*16  VXP_rod,dl_VXP_rod,d2_VXP_rod 

279  complex*  16  VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 

280  complex*16  Al_rod,Bl_rod,Cl_rod,lame_rod,shear_rod 

281 

282  C  INTERNAL  VARIABLES 

283 

284  integer  n2 

285  real*8  k2,r2,no,p  1 1  ,p  1 2 

286  complex*  1 6  dill, dpp,exx, err, Sir, Sxx,ett,ur,vr,wr 

287 

288  n2  =  n**2 

289  r2  =  r**2 

290  k2  =  k**2 

291 

292  zero  =  l.D-20 

293  no  =  L46D0 

294  pll  =  .126D0 

295  pl2  =  .27D0 

296 

297 


298  C  RADIAL  STRESS/(Pr  or  Px) 

tft  =  0 

299  C  LONGITUDINAL  STRESS 

tft=l 

300  C  AXIAL  DISPLACEMENT 

tft  =  2 

301  C  THETA  DISPLACEMENT 

tft  =  3 

302  C  RADIAL  DISPLACEMENT 

tft  =  4 

303  C  LONGITUDINAL  STRAIN 

ell/(Pr  orPx) 

tft  =  5 

304  C  THETA  STRAIN 

ett/(Pr  or  Px) 

tft  =  6 

305  C  RADIAL  STRAIN 

err/(Pr  or  Px) 

tft  =  7 

306  C 

tft  =  8 

307  C  OPTIC  exx=0@k=0 

((dp/p)(r))/(ProrPx) 

tft  =  9 

308  C  OPTIC  exx=const@k=0 

((dp/p)(r))/(ProrPx) 

tft=10 

309 
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310 

311 

if  (tft  .eq.  0)  then 

312 

dill  =  Al_rod*(d2_SP_rod+dl_SP_rod/r  - 

313 

1 

n2/r2*SP_rod  -  k2*SP_rod) 

314 

Sir  =  lame_rod*dill  +  2.0D0*shear_rod* 

315 

1 

(Al_rod*d2_SP_rod  -  n/r2*Bl_rod*VXP_rod 

316 

1 

n/r*Bl_rod*dl_VXP_rod  +  (0.0D0,1.0D0)* 

317 

318 

1 

k*Cl_rod*dl_VRTP_rod) 

319  value  =  Sir 

320 

321 

322  C  LONGITUDINAL  STRESS  USING  (EQ  96) 

323  elseif(tft  .eq.  1)  then 

324 

325  dill  =  Al_rod*(d2_SP_rod+dl_SP_rod/r  - 

326  1  n2/r2*SP_rod  -  k2*SP_rod) 

327 

328  Sxx  =  lame_rod*dill  +  2.0D()*shear_rod*( 

329  1  -k2*Al_rod*SP_rod-(0.0D0,1.0D0)*k*Cl_rod* 

330  1  ((il_VRTP_rod  +  VRTP_rod*(n+ 1.0D0)/r)) 

331 

332  value  =  Sxx 

333 

334  elseif(tft  .eq.  2)  then 

335 

336  wr  =  (0.0D0,1 .0D0)*k*Al_rod*SP_rod  - 

337  1  C  l_rod*(d  l_VRTP_rod  +  1  .ODO/r*  VRTP_rod  +  n/r*  VRTP_rod) 

338  value  =  wr 

339 

340  elseif(tft  .eq.  3)  then 

341 

342  vr  =  -n*Al_rod*SP_rod/r  -  B  l_rod*dl_VXP_rod  + 

343  1  (0.0D0,1.0D0)*k*Cl_rod*VRTP_rod 

344  value  =  vr 

345 

346  elseif(tft  .eq.  4)  then 

347 

348  ur  =  Al_rod*dl_SP_rod  +  n*B  l_rod*VXP_rod/r  + 

349  1  (0.0D0,1.0D0)*k*Cl_rod*VRTP_rod 

350  value  =  ur 

351 

352  elseif(tft  .eq.  5)  then 

353 

354  exx  =  -k2*Al_rod*SP_rod  - 

355  1  (0.0D0,1.0D0)*k*Cl_rod*dl_VRTP_rod- 
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356 

1 

(0.0D0,1.0D0)*k*Cl_rod*VRTP_rod*(1.0D0  +  n)/r 

357 

358 

if  (zabs(exx)  .It.  dabs(zero))  then 

359 

value  =  zero 

360 

endif 

361 

362 

value  =  exx 

363 

364 

elseif(tft  .eq.  6)  then 

365 

366 

ett  =  Al_rod*(1.0D0/r*dl_SP_rod  -  n2/r2  *  SP_rod)  + 

367 

1 

Bl_rod*(n/r2*VXP_rod  -  n/r  *  dl_VXP_rod)  + 

368 

1 

(0.0D0,1.0D0)*Cl_rod*k*VRTP_rod/r*(1.0D0  +  n) 

369 

370 

if  (zabs(ett)  .It.  dabs(zero))  then 

371 

value  =  zero 

372 

endif 

373 

value  =  ett 

374 

375 

elseif(tft  .eq.  7)  then 

376 

377 

err  =  Al_rod*d2_SP_rod  + 

378 

1 

Bl_rod*((-n/r2)*VXP_rod  + 

379 

1 

(n/r)*dl_VXP_rod)  + 

380 

1 

(O.ODO,  1  .ODO)*k*Cl_rod*dl_VRTP_rod 

381 

382 

if  (zabs(err)  .It.  dabs(zero))  then 

383 

value  =  zero 

384 

endif 

385 

386 

value  =  err 

387 

388 

elseif(tft  .eq.  8)  then 

389 

values  l.ODO 

390 

elseif(tft  .eq.  9)  then 

391 

392 

exx  =  -k2*Al_rod*SP_rod  - 

393 

1 

(O.ODO, 1.0D0)*k*Cl_rod*dl_VRTP_rod  - 

394 

1 

(0.0D0,1.0D0)*k*Cl_rod*VRTP_rod*(1.0D0  +  n)/r 

395 

396 

if  (zabs(exx)  .It.  dabs(zero))  then 

397 

exx  =  zero 

398 

endif 

399 

400 

err  =  Al_rod*d2_SP_rod  + 

401 

1 

Bl_rod*((-n/r2)*VXP_rod  + 
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402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 


1  (n/r)*dl_VXP_rod)  + 

1  (0.0D0,1.0D0)*k*Cl_rod*dl_VRTP_rod 

if  (zabs(err)  .It.  dabs(zero))  then 
err  =  zero 
endif 

dpp  =  exx  -  (no**2/2.0D0)*((pll+pl2)*err  +  pl2*exx) 
value  =  dpp 
elseif(tft  .eq.  10)  then 

ett  =  Al_rod*(1.0D0/r*dl_SP_rod  -  n2/r2  *  SP_rod)  + 

1  B  l_rod*(n/r2*VXP_rod  -  n/r  *  dl_VXP_rod)  + 

1  (O.ODO,  1  .ODO)*C  l_rod*k*VRTP_rod/r*(l  .ODO  +  n) 

if  (zabs(ett)  .It.  dabs(zero))  then 
value  =  zero 
endif 

err  =  Al_rod*d2_SP_rod  + 

1  B  l_rod*((-n/r2)*VXP_rod  + 

1  (n/r)*dl_VXP_rod)  + 

1  (0.0D0,1.0D0)*k*Cl_rod*dl_VRTP_rod 

if  (zabs(err)  .It.  dabs(zero))  then 
err  =  zero 
endif 

exx  =  -(lame_rod/(lame_rod  +  2.0D0  *  shear_rod))*(ett  +  err) 
dpp  =  exx  -  (no**2/2.0D0)*((pll+pl2)*err  +  pl2*exx) 
value  =  dpp 

endif 


return 

end 
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446  C  CMINV“Complex  Matrix  Inversion 

447  C 

448  SUBROUTINE  MINV  (C,CINV,WORK,N,IFLAG) 

449  C 

450  C--Notes 

45 1  C  If  IFLAG  =  1,  the  matrix  is  singular 

452  C  Working  precision  (artificial  zero)  =  ID- 12 

453  C 

454  C-Extemal  variables 

455  INTEGER  N, IFLAG 

456  COMPLEX*  16  C(N,N),CINV(N,N),WORK(N,2*N) 

457  C 

458  C— Internal  variables 

459  INTEGER  I,J,IP,IROW,JROW,JCOL,K 

460  C0MPLEX*16MAXPIV,S1,C1, SWITCH 

461  REAL*8  BMAG.T 

462  C 

463  DO110I=l,N,  1 

464  DO100J=l,N.  1 

465  WORK(I,J)  =  C(U) 

466  100  CONTINUE 

467  110  CONTINUE 

468  C 

469  DO130I=l,N,  1 

470  DO120J=l,N,  1 

47 1  WORKa  J+N)  =  ( O.ODO,  O.ODO ) 

472  IF  a.EQJ)  WORK(I,J+N)  =  (  LODO,  O.ODO ) 

473  120  CONTINUE 

474  130  CONTINUE 

475  C 

476  J  =  1 

477  1=1 

478  140  IP  =  I 

479  MAXPIV  =  WORK(U) 

480  C 

48 1  DO  150  mow  =  I+l,  N,  1 

482  S 1  =  WORK(mOW,  J) 

483  IF  (ZABS(S  1)  .LT.  ZABS(MAXPIV))  GOTO  150 

484  IP  =  mow 

485  MAXPIV  =  WORK(mOW,J) 

486  150  CONTINUE 

487  C 

488  IF  (mEQ.  1)  GOTO  170 

489  DO  160  mow  =  1 ,  2*N,  1 

490  SWITCH  =  WORK(IP,mOW) 

49 1  WORK(IP,JROW)  =  WORKa,  JROW) 
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492  WORK(I,JROW)  =  SWITCH 

493  160  CONTINUE 

494  C 

495  170  BMAG  =  ZABS(MAXPIV) 

496 

497  C  WRrTE(*,*)BMAG 

498  C 

499  IF  (BMAG  XT.  1  .OD-12)  GOTO  900 

500  DO  190  mow  =  I+l ,  N,  1 

501  DO  180  JROW  =  J+1, 2*N,  1 

502  Cl  =  WORK(mOW,J)*WORK(I,mOW)AVORK(I,J) 

503  WORKCmOW,  JROW)  =  WORK(mOW,mOW)-C  1 

504  180  CONTINUE 

505  WORK(mOW,J)  =  ( 0.,  0. ) 

506  190  CONTINUE 

507  1  =  1+1 

508  J  =  J+1 

509  C 

510  IF  ((LLT.N)  .AND.  (J.LT.N))  GOTO  140 

511  C 

512  DO210I=l,N,  1 

513  Cl=WORKa,I) 

514  DO  200  J  =  1, 2*N,  1 

515  WORK(U)  =  WORK(I,J)/Cl 

516  200  CONTINUE 

517  210  CONTINUE 

518  C 

519  DO  240 1  =  N,  2,-1 

520  DO  230  J  =  1-1, 1,-1 

521  Cl=WORK(J,I) 

522  DO  220  JCOL  =  J+1, 2*N,  1 

523  WORK(J  JCOL)  =  WORK(J,JCOL)-Cl  *WORK(I  JCOL) 

524  220  CONTINUE 

525  230  CONTINUE 

526  240  CONTINUE 

527  C 

528  DO  260 1  =  1,  N,  1 

529  DO  250  J  =  1,  N,  1 

530  CINV(I,J)  =  WORKa,J+N) 

531  250  CONTINUE 

532  260  CONTINUE 

533  IFLAG  =  0 

534  C 

535  T  =  O.ODO 

536  K  =  0 

537  CC“The  norm  of  the  matrix  inversion  is  T 
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538  CC  DO190I=l,N,  1 

539  CC  DO190J=l,N,  1 

540  CC  C1  =  (0.,0.) 

541  CC  DO180K=l,N,  1 

542  CC  Cl=Cl+Ca,K)*WORK(K,J) 

543  CC180  CONTINUE 

544  CC  SI  =(-!.,  0.)*C1 

545  CC  IF  (LEQJ)  SI  =  SI  +  ( 1., 0. ) 

546  CC  T  =  T  +  (REAL(S  1)**2)  +  (IMAG(S  1)**2) 

547  CC190  CONTINUE 

548  CC  T  =  SQRT(T) 

549  C 

550  RETURN 

551  C 

552  900  IFLAG  =  1 

553 

554 

555  WRITE(*,*)’BMAG  <  ARTIFICIAL  ZERO  ( 1  .OD- 1 2)  RETURNING  FROM  MINV’ 

556  RETURN 

557  END 

558 

559 

560 
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2  ^ 

2  C 

3  C  subprogram  “cl.f  ’ 

4  C 

5  C  This  subprogram  was  written  and  developed  by  Mark  S.  Peloquin 

6  C 

7  C  at  NUWCDETNLON  6/10/95.  As  of  6/10/95,  there  are  no  known  bugs. 

8  C 

9  C  Please  notify  the  author  if  bugs  are  found  (203)  440-5433. 

10  C 

11  C  ^  ^  ^  ^  5jc  5^  3)c  jjc  SjC  3|»  SjC  9|C  ^  S|C  9|C  9|C  S|C  ^  #|C  Sjc  5jC  ^jc  SjC  #|C  S|C  ^  Sfc  3jC  ^  5|C 

12 

13 

14  SUBROUTINE  Cl  A_POT(r,k,Om,n) 

15 

16 

17  C  EXTERNAL  VARIABLES 

18 

19  integer  n 

20  real*8  rdc,Om 

21 
22 

23  C  DEFINITIONS  FOR  COMMON  BLOCK  /CYLINDER!/ 

24 

25  complex*16  SP_CYl_al,dl_SP_CYl_al,d2_SP_CYl_al 

26  complex*16  SP_CYl_a2,dl_SP_CYl_a2,d2_SP_CYl_a2 

27  complex*  16  SP_CYl_bl,dl_SP_CYl_bl,d2_SP_CYl_bl 

28  complex*16  SP_CYl_b2,dl_SP_CYl_b2,d2_SP_CYl_b2 

29 

30  complex*  1 6  VXP_CYl_al  ,dl_VXP_CY  l_al  ,d2_VXP_CYl_al 

31  complex*  16  VXP_CYl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2 

32  complex*16  VXP_CYl_bl,dl_VXP_CYl_bl,d2_VXP_CYl_bl 

33  complex*16  VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2 

34 

35  complex*16  VRTP_CYl_al,dl_VRTP_CYl_al,d2_VRTP_CYl_al 

36  complex*16  VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VRTP_CYl_a2 

37  complex*16  VRTP_CYl_bl41_VRTP_CYl_bl,d2_VRTP_CYl_bl 

38  complex*  1 6  VRTP_CYl_b241_VRTP_CYl_b2,d2_VRTP_CYl_b2 

39 

40  complex*16  lame_cl,shear_cl,cl_cl,ct_cl 

41 

42  complex*16  A1_C1,A2_C1,B1_C1,B2_C1,C1_C1,C2_C1 

43 

44  common  /CYLINDERl/  SP_CYl_al41_SP_CYl_al,d2_SP_CYl_al, 

45  1  SP_CYl_a2,dl_SP_CYl_a2,d2_SP_CYl_a2, 

46  1  SP_CYl_bl41_SP_CYl_bLd2_SP_CYl_bL 
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47 

1 

SP_CYl_b2,dl_SP_CYl_b2,d2_SP_CYl  b2. 

48 

1 

VXP_CYl_al,dl_VXP_CYl_al,d2_VXP_CYl_al, 

49 

1 

VXP_CYl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2, 

50 

1 

VXP_CYl_bl,dl_VXP_CYl_bl,d2_VXP_CYl_bl, 

51 

1 

VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2, 

52 

1 

VRTP_CY  l_al  ,dl_VRTP_CYl_al  ,d2_VRTP_C  Yl_al , 

53 

1 

VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VRTP_CYl_a2, 

54 

1 

VRTP_CYl_bl,dl_VRTP_CYl_bl,d2_VRTP_CYl_bl, 

55 

1 

VRTP_CYl_b2,dl_VRTP_CYl_b2,d2_VRTP_CYl_b2, 

56 

1 

lame_c  1  ,shear_c  1  ,cl_c  1  ,ct_c  1 , 

57 

1 

A1_C1,A2_C131_C1,B2_C1,C1_C1,C2_C1 

58 

59 

60 

61 

double  complex  cbessj,cbessy 

62 

double  complex  dlcbessj,d2cbessj 

63 

double  complex  dlcbessy,d2cbessy 

64 

65 

C  INTERNAL  VARIABLES 

66 

67 

complex*  16  p,q 

68 

69  C  DISPLACEMENT  SCALAR  POTENTIALS  ARE  EVALUATED 

70 

71 

p  =  zsqit((Om**2/cl_cl**2)  -  k**2) 

72 

d2_SP_CYl_al  =  d2cbessj(n,p,r) 

73 

dl_SP_CYl_al  =  dlcbessj(n,p,r) 

74 

SP_CYl_al  =  cbessj(n,p,r) 

75 

d2_SP_CYl_a2  =  d2cbessy(n,p4') 

76 

d  1_SP_C  Y  l_a2  =  d  1  cbessy  (n,p,r) 

77 

SP_CYl_a2  =  cbessy  (n,p,r) 

78 

79 

q  =  zsqrt((Om**2/ct_c  1**2)-  k**2) 

80 

d2_VXP_CYl_al  =  d2cbessj(n,q,r) 

81 

dl_VXP_CYl_al  =  dlcbessj(n,q,r) 

- 

82 

VXP_CYl_al  =  cbessj(n,q,r) 

83 

d2_VXP_CYl_a2  =  d2cbessy(n,q,r) 

84 

dl_VXP_CYl_a2  =  dl  cbessy  (n,q,r) 

85 

VXP_CYl_a2=  cbessy(n,q,r) 

86 

87 

d2_VRTP_CYl_al  =  d2cbessj(n+l,q,r) 

88 

dl_VRTP_CYl_al  =  dlcbessj(n+l,q,r) 

89 

VRTP_CYl_al  =  cbessj(n+l,q,r) 

90 

d2_VRTP_CY  l_a2  =  d2cbessy(n+ 1  ,q,r) 

91 

dl_VRTP_CYl_a2  =  dl  cbessy  (n+l,q,r) 

92 

VRTP_CYl_a2=  cbessy  (n+Lq^-) 
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93 

94 

95  return 

96  end 

97 

98 

99 

100  SUBROUTINE  ClB_POT(r,k,Om,n) 

101 
102 

103  C  EXTERNAL  VARIABLES 

104 

105  integer  n 

106  real*8  r,k,Om 

107 

108 

109  C  DEFINITIONS  FOR  COMMON  BLOCK  /CYLINDERl/ 

110 

111  complex*16  SP_CYl_al,dl_SP_CYl_al,d2_SP_CYl_al 

112  complex*16  SP_CYl_a2,dl_SP_CYl_a2,d2_SP_CYl_a2 

113  complex*16  SP_CYl_bl,dl_SP_CYl_bl,d2_SP_CYl_bl 

114  complex*16SP_CYl_b2,dl_SP_CYl_b2,d2_SP_CYl_b2 

115 

116  complex*16  VXP_CYl_al,dl_VXP_CYl_al,d2_VXP_CYl_al 

117  complex*16  VXP_CYl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2 

118  complex*16  VXP_CYl_bLdl_VXP_CYl_bl,d2_VXP_CYl_bl 

119  complex*16  VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2 

120 

121  complex*16  VRTP_CYl_al,dl_VRTP_CYl_al,d2_VRTP_CYl_al 

122  complex*16  VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VRTP_CYl_a2 

123  complex*16  VRTP_CYl_bl,dl_VRTP_CYl_bl,d2_VRTP_CYl_bl 

124  complex*16  VRTP_CYl_b2,dl_VRTP_CYl_b2,d2_VRTP_CYl_b2 

125 

126  complex*16  lame_cl,shear_cl,cl_cl,ct_cl 

127 

128  complex*16  A1_C1,A2_C1,B1_C1,B2_C1,C1_C1,C2_C1 

129 

130  common  /CYLINDERl/  SP_CYl_al,dl_SP_CYl_al,d2_SP_CYl_al, 

131  1  SP_CYl_a2,dl_SP_CYl_a2,d2_SP_CYl_a2, 

132  1  SP_CYl_bl,dl_SP_CYl_bl,d2_SP_CYl_bl, 

133  1  SP_CYl_b2,dl_SP_CYl_b2,d2_SP_CYl_b2, 

134  1  VXP_CYl_al,dl_VXP_CYl_al,d2_VXP_CYl_al, 

135  1  VXP_CYl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2, 

136  1  VXP_CYl_bl,dl_VXP_CYl_bl,d2_VXP_CYl_bl, 

137  1  VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2, 

138  1  VRTP_CYl_al,dl_VRTP_CYl_al,d2_VRTP_CYl_al, 
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139 

1 

VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VRTP_CYl_a2, 

140 

1 

VRTP_CYl_bl,cil_VRTP_CYl_bl,d2_VRTP_CYl  bl, 

141 

1 

VRTP_CYl_b2,dl_VRTP_CYl_b2,d2_VRTP_CYl_b2, 

142 

1 

lame_c  1  ,shear_c  1  ,cl_c  1  ,ct_c  1 , 

143 

1 

A1_C1,A2_C131_C1,B2_C1,C1_C1,C2_C1 

144 

145 

146 

147 

double  complex  cbessj,cbessy 

148 

double  complex  dlcbessj,d2cbessj 

149 

double  complex  dlcbessy,d2cbessy 

150 

151  C  INTERNAL  VARIABLES 

152 

153 

complex*  16  p,q 

154 

155  C  DISPLACEMENT  SCALAR  POTENTIALS  ARE  EVALUATED 

156 

157 

p  =  zsqit((Om**2/cl_cl**2)  -  k**2) 

158 

d2_SP_CYl_bl  =  d2cbessj(n,p,r) 

159 

dl_SP_CYl_bl  =  dlcbessj(n,p,r) 

160 

SP_CYl_bl  =  cbessj(n,p,r) 

161 

d2_SP_CYl_b2  =  d2cbessy(n,p,r) 

162 

dl_SP_CYl_b2  =  dlcbessy(n,p,r) 

163 

SP_CYl_b2=  cbessy(n,p,r) 

164 

165 

166 

q  =  zsqrt((Om**2/ct_cl**2)  -  k**2) 

167 

d2_VXP_CYl_bl  =  d2cbessj(n,q,r) 

168 

dl_VXP_CYl_bl  =  dlcbessj(n,q,r) 

169 

VXP_CYl_bl  =  cbessj(n,q,r) 

170 

d2_VXP_CYl_b2  =  d2cbessy(n,q,r) 

171 

dl_VXP_CYl_b2  =  dlcbessy(n,q,r) 

172 

VXP_CYl_b2=  cbessy(n,q,r) 

173 

174 

d2_VRTP_CYl_bl  =  d2cbessj(n+l,q,r) 

175 

dl_VRTP_CYl_bl  =  dlcbessj(n+l,q,r) 

176 

VRTP_CYl_bl  =  cbessj(n+l,q,r) 

177 

d2_VRTP_CYl_b2  =  d2cbessy(n+l,q,r) 

178 

dl_VRTP_CYl_b2  =  dlcbessy(n+l,q,r) 

179 

VRTP_CYl_b2=  cbessy(n+l,q,r) 

180 

181 

182 

183 

return 

184 

end 
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185 

186 

187 

188 

189 

190 

191  SUBROUTINE  SYS_MATRIX_RCl(n,k,ao_rod,ao_lcyl,bo_cl, 

192  10m4-o,co,smrcl) 

193 

194  C  EXTERNAL  VARIABLES 

195 

196  integer  n 

197  real*8  k,ao_rod,ao_lcyl,bo_cl,Om,ro,co 

198  complex*  1 6  smrc  1(10, 10) 

199 

200  C  DEFINITIONS  FOR  COMMON  BLOCK  /CYLINDERl/ 

201 

202  complex*16  SP_CYl_al,dl_SP_CYl_al,d2_SP_CYl_al 

203  complex*16  SP_CYl_a2,dl_SP_CYl_a2,d2_SP_CYl_a2 

204  complex*16  SP_CYl_bl,dl_SP_CYl_bl,d2_SP_CYl_bl 

205  complex*16  SP_CYl_b2,dl_SP_CYl_b2,d2_SP_CYl_b2 

206 

207  complex*16  VXP_CYl_al,dl_VXP_CYl_al,d2_VXP_CYl_al 

208  complex*  16  VXP_CYl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2 

209  complex*16  VXP_CYl_bl,dl_VXP_CYl_bl,d2_VXP_CYl_bl 

210  complex*16  VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2 

211 

212  complex*16  VRTP_CYl_al,dl_VRTP_CYl_al,d2_VRTP_CYl_al 

213  complex*16  VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VRTP_CYl_a2 

214  complex*16  VRTP_CYl_bl,dl_VRTP_CYl_bLd2_VRTP_CYl_bl 

215  complex*16  VRTP_CYl_b2,dl_VRTP_CYl_b2,d2_VRTP_CYl_b2 

216 

217  complex*16  lame_cl,shear_cl,cl_cl,ct_cl 

218 

219  complex*16  A1_C1,A2_C1,B1_C1,B2_C1,C1_C1,C2_C1 

220 

221  common  /CYLINDER!/  SP_CYl_al,dl_SP_CYl_al,d2_SP_CYl_al, 

222  1  SP_CYl_a2,dl_SP_CYl_a2,d2_SP_CYl_a2, 

223  1  SP_CYl_bl,dl_SP_CYl_bLd2_SP_CYl_bl, 

224  1  SP_CYl_b2,dl_SP_CYl_b2,d2_SP_CYl_b2, 

225  1  VXP_CYl_al,dl_VXP_CYl_al,d2_VXP_CYl_al, 

226  1  VXP_CYl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2, 

227  1  VXP_CYl_bl,dl_VXP_CYl_bl,d2_VXP_CYl_bL 

228  1  VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2, 

229  1  VRTP_CYl_al,dl_VRTP_CYl_al,d2_VRTP_CYl_al, 

230  1  VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VRTP_CYl_a2, 
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231 

1 

VRTP_CYl_bl,dl_VRTP_CYl  bl,d2  VRTP  CYl  bl. 

232 

1 

VRTP_CYl_b2,dl_VRTP_CYl_b2,d2_VRTP_CYl_b2, 

233 

1 

lame_c  1  ,shear_c  1  ,cl_c  1  ,ct_c  1 , 

234 

1 

A1_C1,A2_C131_C1,B2_C1,C1_C1,C2_C1 

235 

236  C  ********************************************* !(:!|:*******=|:***H!***!i!!|:*st! 

237 

238  C  DEFINITION  FOR  COMMON  BLOCK /ROD/ 

239 

240  common  /ROD/  SP_rod,d  l_SP_rod,d2_SP_rod, VXP_rod, 

241  ldl_VXP_rod,d2_VXP_rod,VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 

242  l,Al_rod,Bl_rod,Cl_rod,lame_rod,shear_rod 

243 

244 

245  complex*16  SP_rod,dl_SP_rod,d2_SP_rod 

246  complex*16  VXP_rod,dl_VXP_rod,d2_VXP_rod 

247  complex*16  VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 

248  complex*16  Al_rod,Bl_rod,Cl_rod,lame_rod,shear_rod 

249 

250  C  ***********************************************************!(:****** 

251 

252  C  DEFINITIONS  FOR  COMMON  BLOCK  /OFLUID/ 

253 

254  common  /OFLUID/  OFSC,dl_OFSCAI_OF 

255 

256  complex*16  OFSC,dl_OFSC,M_OF 

257 

258  C  *************************************** ******************** ******* 

259 

260  C  INTERNAL  VARIABLES 

261 

262  complex*16L2GCl,L2GR 

263  real*8  b2Jc2,a2 

264  integer  n2 

265 

266  a2  =  ao_rod**2 

267  b2  =bo_cl**2 

268  n2  =  n**2 

269  k2  =  k**2 

270  L2GC1  =  lame_cl  +  2.0D0  *  shear_cl 

271  L2GR  =  lame_rod+ 2.0D0  *  shear_rod 

272 

273  C  BOUNDARY  CONDITION  #1  (EQ  113) 

274 

275  smrcl(l,l)  =  L2GCl*d2_SP_CYl_bl  +  (lame_cl^o_cl)* 

276  ldl_SP_CYl_bl  -  lame_cl*SP_CYl_bl*(n2/b2  +  k2) 
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277 

278  smrcl(l,2)  s=  L2GCl*d2_SP_CYl_b2  +  (lame_cl/bo_cl)* 

279  ldl_SP_CYl_b2  -  lame_cl*SP_CYl_b2*(n2/b2  +  k2) 

280 

281  smrcl(l,3)  =  -2.0D0*shear_cl*n/b2*(VXP_CYl_bl-bo_cl* 

282  ldl_VXP_CYl_bl) 

283 

284  smrcl(l,4)  =  -2.0D0*shear_cl*n/b2*(VXP_CYl_b2-bo_cl* 

285  ldl_VXP_CYl_b2) 

286 

287  smrcl(l,5)  =  (O.ODO,1.0DO)*2.0DO*shear_cl*k*dl_VRTP_CYl_bl 

288 

289  snircl(l,6)  =  (O.ODO,1.0DO)*2.0DO*shear_cl*k*dl_VRTP_CYl_b2 

290 

291  smrcl(l,7)  =  (0.0D0,0.0D0) 

292 

293  smrcl(l,8)  =  (0.0D0,0.0D0) 

294 

295  smrcl(l,9)  =  (0.0D0,0.0D0) 

296 

297  snircl(l,10)=+ro*Om**2*OFSC 

298 

299  C  BOUNDARY  CONDITION  #2  (EQ  116) 

300 

301  smrcl(2,l)  =  (O.ODO,LODO)*k*2.0DO*shear_cl*dl_SP_CYl_bl 

302 

303  smrcl(2,2)  =  (0.0D0,1.0D0)*k*2.0D0*shear_cl*dl_SP_CYl_b2 

304 

305  smrcl(2,3)  =  (0.0D0,1.0D0)*k*n*shear_cl*VXP_CYl_bl/bo_cl 

306 

307  smrcl(2,4)  =  (0.0D0,1.0D0)*k*n*shear_cl*VXP_CYl_b2/bo_cl 

308 

309  smrcl(2,5)  =  shear_cl*(VRTP_CYl_bl*(n/b2  -  k2  + 

310  1  1.0D0/b2)  -  dl_VRTP_CYl_bl*(n  +  1.0D0)/bo_cl  -  d2_VRTP_CYl_bl) 

311 

3 12  smrcl(2,6)  =  shear_cl*(VRTP_CYl_b2*(n/b2  -  k2  + 

313  1  1.0D0/b2)  -  dl_VRTP_CYl_b2*(n  +  1.0D0)/bo_cl  -  d2_VRTP_CYl_b2) 

314 

315  smrcl(2,7)  =  (0.0D0,0.0D0) 

316 

317  smrcl(2,8)  =  (0.0D0,0.0D0) 

318 

319  sinrcl(2,9)  =  (O.ODO,O.ODO) 

320 

321  smrcl(2,10)  =  (O.ODO,O.ODO) 

322 
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323  C  BOUNDARY  CONDITION  #3  (EQ  120) 

324 

325  smrcl(3,l)  =  (shear_cl*2.0D0*n/bo_cl)*((1.0D0/bo_cl)* 

326  lSP_CYl_bl  -  dl_SP_CYl_bl) 

327 

328  smrcl(3,2)  =  (shear_cl*2.0D0*n/bo_cl)*((1.0D0/bo_cl)* 

329  lSP_CYl_b2  -  dl_SP_CYl_b2) 

330 

331  smrcl(3,3)  =  shear_cl*(-d2_VXP_CYl_bl  +  1.0D0/bo_cl* 

332  ldl_VXP_CYl_bl-n2/b2*VXP_CYl_bl) 

333 

334  smrcl(3,4)  =  shear_cl*(-d2_VXP_CYl_b2  +  1.0D0/bo_cl* 

335  ldl_VXP_CYl_b2  -  n2/b2*VXP_CYl_b2) 

336 

337  snircl(3,5)  =  (0.0D0,1.0D0)*k*shear_cl*(dl_VRTP_CYl_bl 

338  1-  VRTP_CYl_bl*(1.0D0  +  n)/bo_cl) 

339 

340  smrc  1  (3,6)  =  (O.ODO,  1 .0D0)*k*shear_c  1  *(d  1_VRTP_CY  l_b2 

341  l-VRTP_CYl_b2*(1.0D0  +  n)/bo_cl) 

342 

343  smrc  1  (3,7)  =  (O.ODO, O.ODO) 

344 

345  sinrcl(3,8)  =  (O.ODO, O.ODO) 

346 

347  smrcl(3,9)  =  (O.ODO, O.ODO) 

348 

349  smrcl(3,10)  =  (0.0D0,0.0D0) 

350 

351 

352  C  BOUNDARY  CONDITION  #4  (EQ  123) 

353 

354  smrcl(4,l)  =  dl_SP_CYl_bl 

355 

356  smrcl(4,2)  =  dl_SP_CYl_b2 

357 

358  s^lrcl(4,3)  =  n^o_cl*VXP_CYl_bl 

359 

360  smrc  1  (4,4)  =  n/bo_c  1  *VXP_CYl_b2 

361 

362  smrcl(4,5)  =  (O.ODO,  1.0D0)*k*VRTP_CYl_bl 

363 

364  smrcl(4,6)  =  (0.0D0,1.0D0)*k*VRTP_CYl_b2 

365 

366  smrcl  (4,7)  =  (O.ODO,O.ODO) 

367 

368  smrcl  (4,8)  =  (O.ODO,O.ODO) 
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369 

370  smrcl(4,9)  =  (O.ODO.O.ODO) 

371 

372  smrcl(4,10)=  -dl_OFSC 

373 

374  C  BOUNDARY  CONDITION  #5  (EQ  125) 

375 

376  sinrcl(5,l)  =  L2GCl*d2_SP_CYl_al  +  lame_cl/ao_lcyl 

377  l*dl_SP_CYl_al  -  lame_cl*SP_CYl_al*(n2/a2  +  k2) 

378 

379  sinrcl(5,2)  =  L2GCl*d2_SP_CYl_a2  +  lame_cl/ao_lcyl 

380  l*dl_SP_CYl_a2  -  lame_cl*SP_CYl_a2*(n2/a2  +  k2) 

381 

382  sinrcl(5,3)  =  -2.0D0*shear_cl*n/a2*(VXP_CYl_al  -  ao_lcyl 

383  l*dl_VXP_CYl_al) 

384 

385  smrcl(5,4)  =  -2.0D0*shear_cl*n/a2*(VXP_CYl_a2  -  ao_lcyl 

386  l*dl_VXP_CYl_a2) 

387 

388  smrcl(5,5)  =  (0.OD0,l.OD0)*2.0D0*shear_cl*k*dl_VRTP_CYl_al 

389 

390  smrcl(5,6)  =  (0.0D0,1.0D0)*2.0D0*shear_cl*k*dl_VRTP_CYl_a2 

391 

392  smrcl(5,7)  =  -L2GR*d2_SP_rod  -  lame_rod/ao_rod* 

393  ldl_SP_rod  +  lame_rod*SP_rod*(n2/a2  +  k2) 

394 

395  smrcl(5,8)  =  -2.0D0*shear_rod*ii/ao_rod*(dl_VXP_rod  -  l.ODO/ 

396  lao_rod*VXP_rod) 

397 

398  smrcl(5,9)  =  (0.0D0,-1.0D0)*k*2.0D0*shear_rod*dl_VRTP_rod 

399 

400  smrcl(5,10)=  (0.0D0,0.0D0) 

401 

402  C  BOUNDARY  CONDITION  #6  (EQ  127) 

403 

404  smrcl(6,l)  =  (0.0D0,1.0D0)*k*2.0D0*shear_cl*dl_SP_CYl_al 

405 

406  sinrcl(6,2)  =  (0.0D0,1.0D0)*k*2.0D0*shear_cl*dl_SP_CYl_a2 

407 

408  smrcl(6,3)  =  (0.0D0,1.0D0)*k*n*shear_cl/ao_rod*VXP_CYl_al 

409 

410  smrcl(6,4)  =  (0.0D0,1.0D0)*k*n*shear_cl/ao_rod*VXP_CYl_a2 

411 

412  smrcl(6,5)  =  shear_cl*(VRTP_CYl_al*((n+1.0D0)/a2  -  k2) 

413  1-  dl_VRTP_CYl_al*(n+1.0D0)/ao_lcyl  -  d2_VRTP_CYl_al) 

414 
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415  smrcl(6,6)  =  shear_cl*(VRTP_CYl_a2*((n+1.0D0)/a2  -  k2) 

416  1-  dl_VRTP_CYl_a2*(n+1.0D0)/ao_lcyl  -  d2_VRTP_CYl_a2) 

417 

418  snircl(6,7)  =  (0.0D0,-1.0D0)*k*2.0*shear_rod*dl_SP_rod 

419 

420  smrcl(6,8)  =  (0.0D0,-1.0D0)*k*n*shear_rod/ao_rod*VXP_rod 

421 

422  snircl(6,9)  =  -shear_rod*(VRTP_rod*((n+1.0D0)/a2  -  k2) 

423  l-dl_VRTP_rod*(n+1.0D0)/ao_rod-d2_VRTP_rod) 

424 

425  smrcl(6,10)  =  (0.0D0,0.0D0) 

426 

427  C  BOUNDARY  CONDITION  #7  (EQ  129) 

428 

429  snircl(7,l)  =  shear_cl*2.0D0*n/ao_lcyl*(SP_CYl  al/ao_lcyl 

430  1-  dl_SP_CYl_al) 

431 

432  smrc  1(7,2)  =  shear_c  1  *2.0D0*n/ao_lcyl*(SP_CYl_a2/ao_lcyl 

433  1-  dl_SP_CYl_a2) 

434 

435  smrcl(7,3)  =  shear_cl*(-d2_VXP_CYl_al  +  dl_VXP_CYl_al/ 

436  1  ao_lcyl  -  n2/a2*VXP_CYl_al ) 

437 

438  smrcl(7,4)  =  shear_cl*(-d2_VXP_CYl_a2  +  dl_VXP_CYl_a2/ 

439  1  ao_lcyl  -  n2/a2*VXP_CYl_a2) 

440 

441  smrcl(7,5)  =  (0.0D0,1.0D0)*k*shear_cl*(dl_VRTP_CYl_al  - 

442  1  VRTP_CYl_al*(1.0D0+n)/ao_lcyl) 

443 

444  smrcl(7,6)  =  (0.0D0,1.0D0)*k*shear_cl*(dl_VRTP_CYl_a2  - 

445  1  VRTP_CYl_a2*(1.0D0+n)/ao_lcyl) 

446 

447  smrcl(7,7)  =  -2.0D0*n*shear_rod/a2*(SP_rod  -  ao_rod*dl_SP_rod) 

448 

449  smrcl(7,8)  =  -shear_rod*(-d2_VXP_rod  +  dl_VXP_rod/ao_rod 

450  1  -  n2/a2*YXP_rod) 

451 

452  sinrcl(7,9)  =  (0.0D0,-1.0D0)*k*shear_rod*(dl_VRTP_rod 

453  1  -  VRTP_rod*(  1  .ODO  +  n)/ao_rod) 

454 

455  smrcl(7,10)=(0.0D0,0.0D0) 

456 

457  C  BOUNDARY  CONDITION  #8  (EQ  132) 

458 

459  sinrcl(8,l)  =  dl_SP_cyl_al 

460 
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461  smrcl(8,2)  =  dl_SP_cyl_a2 

462 

463  smrcl(8,3)  =  n*VXP_CYl_al/ao_lcyl 

464 

465  smrcl(8,4)  =  n*VXP_CYl_a2/ao_lcyl 

466 

467  smrcl(8,5)  =  (O.OD0,l.ODO)*k*VRTP_CYl_al 

468 

469  smrcl(8,6)  =  (O.ODO,1.0DO)*k*VRTP_CYl_a2 

470 

47 1  smrc  1  (8,7)  =  -dl_SP_rod 

472 

473  smrc  1(8,8)  =  -n*VXP_rod/ao_rod 

474 

475  smrcl(8,9)  =  (0.0D0,-1.0D0)*k*VRTP_rod 

476 

477  smrcl(8,10)  =  (O.ODO,O.ODO) 

478 

479  C  BOUNDARY  CONDITION  #9  (EQ  135) 

480 

481  smrcl(9,l)  =  -n*SP_CYl_al/ao_lcyI 

482 

483  smrcl(9,2)  =  -n*SP_CYl_a2/ao_lcyl 

484 

485  smrcl(9,3)  =  -dl_VXP_CYl_al 

486 

487  smrcl(9,4)  =  -dl_VXP_CYl_a2 

488 

489  snircl(9,5)  =  (O.ODO,1.0DO)*k*VRTP_CYl_al 

490 

491  sinrcl(9,6)  =  (O.ODO,1.0DO)*k*VRTP_CYl_a2 

492 

493  smrc  1  (9,7)  =  n*SP_rod/ao_rod 

494 

495  smrc  1(9,8)  =  dl_VXP_rod 

496 

497  smrcl(9,9)=  (0.0D0,-1.0D0)*k*VRTP_rod 

498 

499  smrcl(9,10)=  (0.0D0,0.0D0) 

500 

501  C  BOUNDARY  CONDITION  #10  (EQ  138) 

502 

503  smrcl(10,l)  =  (0.0D0,1.0D0)*k*SP_CYl_al 

504 

505  smrcl(10,2)  =  (O.OD0,l.ODO)*k*SP_CYl_a2 

506 
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507  sinrcl(10,3)  =  (O.ODO,O.ODO) 

508 

509  smrcl(10,4)  =  (0.0D0,0.0D0) 

510 

511  smrcl(10,5)  =  -dl_VRTP_CYl_al  -  (n  +  1.0D0)*VRTP_CYl_al 

512  l/ao_lcyl 

513 

514  smrcl(10,6)  =  -dl_VRTP_CYl_a2  -  (n  +  1.0D0)*VRTP_CYl_a2 

515  l/ao_lcyl 

516 

517  smrcl(10,7)  =  (0.0D0,-1.0D0)*k*SP_rod 

518 

519  smrc  1  ( 10,8)  =  (O.ODO.O.ODO) 

520 

521  siiircl(10,9)  =  dl_VRTP_rod  +  VRTP_rod*(n  +  l.ODO) 

522  l/ao_rod 

523 

524  siiircl(10,10)  =  (O.OIX),O.ODO) 

525 

526 

527  return 

528  end 

529 

530 

531 

532 

533  SUBROUTINE  ABC_RCl_INVERT(n,exctype,sinrcl,b) 

534 

535 

536  C  EXTERNAL  VARIABLES 

537 

538  integer  n,exctype 

539  real*8  b 

540  complex*16  snircl(10,10) 

541 

542  C  DEFINITIONS  FOR  COMMON  BLOCK  /CYLINDERl/ 

543 

544  complex*16  SP_CYl_al,dl_SP_CYl_al,d2_SP_CYl_al 

545  complex*16  SP_CYl_a2,dl_SP_CYl_a2,d2_SP_CYl_a2 

546  complex*16  SP_CYl_bl,dl_SP_CYl_bl,d2_SP_CYl_bl 

547  complex*16  SP_CYl_b2,dl_SP_CYl_b2,d2_SP_CYl_b2 

548 

549  complex*16  VXP_CYl_al,dl_VXP_CYl_al,d2_VXP_CYl_al 

550  complex*16  VXP_CYl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2 

551  complex*16  VXP_CYl_bl,dl_VXP_CYl_bl,d2_VXP_CYl_bl 

552  complex*16  VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2 
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553 

554  complex*16  VRTP_CYl_al,dl_VRTP_CYl_al,d2_VRTP_CYl_al 

555  complex*16  VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VRTP_CYl_a2 

556  complex*16  VRTP_CYl_bl41_VRTP_CYl_bl42_VRTP_CYl_bl 

557  complex*16  VRTP_CYl_b2,dl_VRTP_CYl_b2,d2_VRTP_CYl_b2 

558 

559  complex*  1 6  lame_cl,shear_cl,cl_cl,ct_cl 

560  complex*16  A1_C1,A2_C1,B1_C1,B2_C1,C1_C1,C2_C1 

561 

562  common  /CYLINDERl/  SP_CYl_al,dl_SP_CYl_al,d2_SP_CYl_al, 

563  1  SP_CYl_a2,dl_SP_CYl_a2,d2_SP_CYl_a2, 

564  1  SP_CYl_bl,dl_SP_CYl_bl,d2_SP_CYl_bl, 

565  1  SP_CYl_b2,dl_SP_CYl_b2,d2_SP_CYl_b2, 

566  1  VXP_CYl_al,dl_VXP_CYl_al,d2_VXP_CYl_al, 

567  1  VXP_CYl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2, 

568  1  VXP_CYl_bl,dl_VXP_CYl_bl,d2_VXP_CYl_bl, 

569  1  VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2, 

570  1  VRTP_CYl_al,dl_VRTP_CYl_al,d2_VRTP_CYl_al, 

571  1  VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VRTP_CYl_a2, 

572  1  VRTP_CYl_bl,dl_VRTP_CYl_bl,d2_VRTP_CYl_bl, 

573  1  VRTP_CYl_b2,dl_VRTP_CYl_b2,d2_VRTP_CYl_b2, 

574  1  lame_cl,shear_cl,cl_cl,ct_cl, 

575  1  A1_C1,A2_C1,B1_C132_C1,C1_C1,C2_C1 

576 

577  C  *********************  ****************5j'*******  ************  ********* 

578 

579  C  DEFINITIONS  FOR  COMMON  BLOCK  /ROD/ 

580 

58 1  common  /ROD/  SP_rod,dl_SP_rod,d2_SP_rod,VXP_rod, 

582  ldl_VXP_rod,d2_VXP_rod,VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 

583  1  ,Al_rod,B  l_rod,Cl_rod,lame_rod,shear_rod 

584 

585 

586  complex*  16  SP_rod,dl_SP_rod,d2_SP_rod 

587  complex*16  VXP_rod,dl_VXP_rod,d2_VXP_rod 

588  complex*16VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 

589  complex*16  Al_rod,Bl_rod,Cl_rod,lame_rod,shear_rod 

590 

591  C  ****************************************************************** 

592 

593  C  DEFINITIONS  FOR  COMMON  BLOCK  /OFLUID/ 

594 

595  complex*  16  OFSC,dl_OFSC,M_OF 

596 

597  common  /OFLUID/  OFSC,dl_OFSC,M_OF 

598 
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599  C  *****************************************♦*********************>(!** 

600 

601  C  INTERNAL  VARIABLES 

602 

603  integer  size,iflag 

604  complex*16  smrclinv(  10, 10),workxc  1(10,20) 

605 

606  size  =  10 

607  iflag  =  0 

608 

609 

610  CALL  MIN V (smrc  1  ,smrc  1  inv,workrc  1  ,size,iflag) 

611 
612 

613 

614  C  RADIAL  EXCITATION  exctype  =  1 

615  C  AXIAL  EXCITATION  exctype  =  0 


616 

617 

if  (exctype  .eq.  1)  then 

618 

A1_C1  =  -smrc  linv(  1,1) 

619 

A2_C1  =-sinrclinv(2,l) 

620 

B1_C1  =  -smrclinv(3,l) 

621 

B2_C1  =  -sinrclinv(4,l) 

622 

C1_C1  =-sinrclinv(5,l) 

623 

C2_C1  =  -smrclinv(6,l) 

624 

Al_rod  =  -snirclinv(7,l) 

625 

Bl_rod  =  -smrclinv(8,l) 

626 

Cl_rod  =  -smrclinv(9,l) 

627 

M_OF  =  -smrclinv(10,l) 

628 

elseif  (exctype  .eq.  0)  then 

629 

A1_C1  =  -smrc  1  in  v(  1,2) 

630 

A2_C1  =  -smrclinv(2,2) 

631 

B1_C1  =  -smrclinv(3,2) 

632 

B2_C1  =  -snirclinv(4,2) 

633 

C1_C1  =  -snirclinv(5,2) 

634 

C2_C1  =  -sinrclinv(6,2) 

635 

Al_rod  =  -smrclinv(7,2) 

636 

Bl_rod  =  -sinrclinv(8,2) 

637 

Cl_rod  =  -sinrclinv(9,2) 

638 

M_OF  =  -snirclinv(10,2) 

639 

endif 

640 

641 

642 

return 

643 

end 

644 
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645 

646 

647 

648 

649  SUBROUTINE  OUTPUT_RCl(tft,n,k,r, value) 

650 

651  C  EXTERNAL  VARIABLES 

652 

653  integer  n,tft 

654  real*8  k,r,zero 

655  complex*  16  value 

656 

657  C  DEFINITIONS  FOR  COMMON  BLOCK  /CYLINDERl/ 

658 

659  complex*16  SP_CYl_al,dl_SP_CYl_al,d2_SP_CYl_al 

660  complex*16  SP_CYl_a2,dl_SP_CYl_a2,d2_SP_CYl_a2 

661  complex*16  SP_CYl_bl,dl_SP_CYl_bl,d2_SP_CYl_bl 

662  complex*16  SP_CYl_b2,dl_SP_CYl_b2,d2_SP_CYl_b2 

663 

664  complex*16  VXP_CYl_al,dl_VXP_CYl_al,d2_VXP_CYl_al 

665  complex*16  VXP_CYl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2 

666  complex*16  VXP_CYl_bl,dl_VXP_CYl_bl,d2_VXP_CYl_bl 

667  complex*  16  VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2 

668 

669  complex*16VRTP_CYl_al,dl_VRTP_CYl_al,d2_VRTP_CYl_al 

670  complex*  16  VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VRTP_CY  l_a2 

671  complex*16  VRTP_CYl_bl,dl_VRTP_CYl_bl,d2_VRTP_CYl_bl 

672  complex*  16  VRTP_CYl_b2,dl_VRTP_CYl_b2,d2_VRTP_CYl_b2 

673 

674  complex*  1 6  lame_c  1  ,shear_c  1  ,cl_c  1  ,ct_c  1 

675  complex*16  A1_C1,A2_C1,B1_C132_C1,C1_C1,C2_C1 

676 

677  common  /CYLINDER!/  SP_CYl_al,dl_SP_CYl_al,d2_SP_CYl_al, 

678  1  SP_CYl_a2,dl_SP_CYl_a2,d2_SP_CYl_a2, 

679  1  SP_CYl_bl,dl_SP_CYl_bl,d2_SP_CYl_bl, 

680  1  SP_CYl_b2,dl_SP_CYl_b2,d2_SP_CYl_b2, 

681  1  VXP_CYl_al,dl_VXP_CYl_al,d2_VXP_CYl_al, 

682  1  VXP_CYl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2, 

683  1  VXP_CYl_bl41_VXP_CYl_bl,d2_VXP_CYl_bl, 

684  1  VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2, 

685  1  VRTP_CYl_al,dl_VRTP_CYl_al,d2_VRTP_CYl_al, 

686  1  VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VRTP_CYl_a2, 

687  1  VRTP_CYl_bLdl_VRTP_CYl_bl,d2_VRTP_CYl_bl, 

688  1  VRTP_CYl_b2,dl_VRTP_CYl_b2,d2_VRTP_CYl_b2, 

689  1  lame_cl,shear_cl,cl_cl,ct_cl, 

690  1  A1_C1,A2_C131_C1,B2_C1,C1_C1,C2_C1 
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691 

692  C  ***********************************s|!***!|!!|5S|:*****!i:********!C*:)!**»*^!:t:* 

693 

694  C  DEFINmONS  FOR  COMMON  BLOCK  /ROD/ 

695 

696  common  /ROD/  SP_rod,dl_SP_rod,d2_SP_rod,VXP_rod, 

697  ldl_VXP_rod,d2_VXP_rod,VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 

698  1  ,Al_rod,B  l_rod,Cl_rod,lame_rod,shear_rod 

699 

700 

701  complex*  1 6  SP_rod,d  l_SP_rod,d2_SP_rod 

702  complex*  16  VXP_rod,dl_VXP_rod,d2_VXP_rod 

703  complex*16  VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 

704  complex*16  Al_rod,Bl_rod,Cl_rod,lame_rod,shear  rod 

705 

706  C  ******************************************!|!*!C*!(!*********!|!********* 

707 


708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 


C  DEFINITIONS  FOR  COMMON  BLOCK  /OFLUID/ 
common  /OFLUID/  OFSC,dl_OFSC,M_OF 
complex*16  OFSC,dl_OFSCJil_OF 

(j’  ************=t:**********!t!******#*****%***^:***:(:**:)::)::|c:)::(::j::)c5|c:j.^:(:^,j.;j.,j.,j.5(.^,^ 

C  INTERNAL  VARIABLES 
integer  n2 

real*8  k2,r2,no,pll,pl2 

complex*  16  dpp,exx,erT,Srr,Sxx,ett,uc,vc,wc 

complex*16AlCl,A2C131C132Cl,ClCl,C2Cl,L2GCl 

n2  =  n**2 
r2  =  r**2 
k2  =  k**2 

zero  =  l.OOOD-30 
no  =  1.460D0 
pll  =0.126D0 
pl2  =  0.270D0 

L2GC1  =  lame_cl  +  2.0D0*shear_cl 
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734  C  RADIAL  STRESS/(Pr  or  Px)  tft  =  0 

735  C  tft  =  1 

736  C  AXIAL  DISPLACEMENT  tft  =  2 

737  C  THETA  DISPLACEMENT  tft  =  3 

738  C  RADIAL  DISPLACEMENT  tft  =  4 

739  C  LONGITUDINAL  STRAIN  el  l/(Pr  or  Px)  tft  =  5 

740  C  THETA  STRAIN  ett/(Pr  or  Px)  tft  =  6 

741  C  RADIAL  STRAIN  err/(ProrPx)  tft  =  7 

742  C  tft  =  8 

743  C  OPTIC  exx=0@k=0  ((dp/p)(r))/(Pr  or  Px)  tft  =  9 

744  C  OPTIC  exx=const@k=0  ((dp/p)(r))/(Pr  or  Px)  tft  =10 


745 

746 

747 

748 

749  if  (tft  .eq.  0)  then 

750 

751  AlCl  =  Al_Cl*(L2GCl*d2_SP_CYl_al  +  lame.cl* 

752  1  dl_SP_CYl_al/r-lame_cl*SP_CYl_al*(n2/ 

753  1  r2  +  k2)) 

754 

755  A2C1  =  A2_Cl*(L2GCl*d2_SP_CYl_a2  +  lame.cl* 

756  1  dl_SP_CYl_a2/r-lame_cl*SP_CYl_a2*(n2/ 

757  1  r2  +  k2)) 

758 

759  BlCl  =  Bl_Cl*-2.0*shear_cl*n/r**2*(VXP_CYl_al  - 

760  1  r*dl_VXP_CYl_al) 

761 

762  B2C1  =  B2_Cl*-2.0*shear_cl*n/r**2*(VXP_CYl_a2  - 

763  1  r*dl_VXP_CYl_a2) 

764 

765  ClCl  =  (O.ODO,LODO)*Cl_Cl*2.0DO*shear_cl*k*dl_VRTP_CYl_al 

766 

767  C2C1  =  (0.0D0,L0D0)*C2_Cl*2.0D0*shear_cl*k*dl_VRTP_CYl_a2 

768 

769  Srr  =  AlCl  +  A2C1  +  BlCl  +  B2C1  +  ClCl  +  C2C1 

770 

771  value  =  Srr 

772 

773 

774  C  LONGITUDINAL  STRESS  USING  (EQ  153) 

775  elseif(tft  .eq.  1)  then 

776 

777  AlCl  =  Al_Cl*(lame_cl*(d2_SP_CYl_al  +  dl_SP_CYl_al/r) 

778  1  -SP_CYl_al*(lame_cl*n2/r2  +  k2*(lame_cl 

779  1  +  2.0DO*shear_cl))) 
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780 

781  A2C1  =  A2_Cl*(lame_cl*((i2_SP_CYl_a2  +  dl_SP_CYl_a2/r) 

782  1  -  SP_CYl_a2*(laine_cl*n2/r2  +  k2*(lame_cl 

783  1  +  2.0DO*shear_cl))) 

784 

785  ClCl  =  Cl_Cl*((0.0D0,-1.0D0)*k*(dl_VRTP_CYl_al  + 

786  1  VRTP_CYl_al*(n  +  1.0D0)/r))*2.0DO*shear_cl 

787 

788  C2C1  =  C2_Cl*((0.0D0,-1.0D0)*k*(dl_VRTP_CYl_a2  + 

789  1  VRTP_CYl_a2*(n+ 1.0D0)/r))*2.0D0*shear_cl 

790 

791  Sxx  =  AlCl  +  A2C1 +  C1C1 +C2C1 

792 

793  value  =  Sxx 

794 

795 

796  C  AXIAL  DISPLACEMENT  USING  (EQ  149) 

797  elseif(tft  .eq.  2)  then 

798 

799  AlCl  =  Al_Cl*(0.0D0,1.0DO)*k*SP_CYl_al 

800 

801  A2Cl=A2_Cl*(O.ODO,1.0DO)*k*SP_CYl_a2 

802 

803  ClCl  =  Cl_Cl*(-dl_VRTP_CYl_al  -  VRTP_CYl_al* 

804  1  (n+1.0DO)/r) 

805 

806  C2C1  =  C2_Cl*(-dl_VRTP_CYl_a2  -  VRTP_CYl_a2* 

807  1  (n+1.0D0)/r) 

808 

809  wc  =  AlCl+A2Cl+ClCl+C2Cl 

810 

811  value  =  wc 

812 

813  C  THETA  DISPLACEMENT  USING  (EQ  150) 

814  elseif(tft  .eq.  3)  then 

815 

816 

817  AlCl=Al_Cl*-SP_CYl_al*n/r 

818 

819  A2Cl=A2_Cl*-SP_CYl_a2*n/r 

820 

821  BlCl  =  -Bl_Cl*dl_VXP_CYl_al 

822 

823  B2Cl=-B2_Cl*dl_VXP_CYl_a2 

824 

825  ClCl  =  Cl_Cl*(O.ODO,1.0DO)*k*VRTP_CYl_al 
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826 

827  C2C1  =  C2_Cl*(0.0D0,1.0DO)*k*VRTP_CYl_a2 

828 

829  VC  =A1C1+A2C1+B1C1+B2C1+C1C1+C2C1 

830 

831  value  =  VC 

832 

833  C  RADIAL  DISPLACEMENT  USING  (EQ  148) 

834  elseif(tft  .eq.  4)  then 

835 

836  AlCl=Al_Cl*dl_SP_CYl_al 

837 

838  A2C1  =  A2_Cl*dl_SP_CYl_a2 

839 

840  BlCl  =  Bl_Cl*VXP_CYl_al*n/r 

841 

842  B2C1  =  B2_C1  *VXP_CYl_a2*n/r 

843 

844  ClCl  =  Cl_Cl*(0.0D0,1.0DO)*k*VRTP_CYl_al 

845 

846  C2C1  =  C2_Cl*(O.ODO,LODO)*k*VRTP_CYl_a2 

847 

848  uc  =A1C1+A2C1+B1C1+B2C1  +  C1C1  +  C2C1 

849 

850  value  =  uc 

851 

852  C  LONGITUDINAL  STRAIN  USING  (EQ  147) 

853  elseif(tft  .eq.  5)  then 

854 

855  AlCl  =  -Al_Cl*k2*SP_CYl_al 

856 

857  A2C1  =  -A2_Cl*k2_SP_CYl_a2 

858 

859  ClCl  =  Cl_Cl*(0.0D0,-1.0D0)*k*(dl_VRTP_CYl_al  + 

860  1  VRTP_CYl_al*(n+1.0D0)/r) 

861 

862  C2C1  =  C2_Cl*(0.0D0,-1.0D0)*k*(dl_VRTP_CYl_a2  + 

863  1  VRTP_CYl_a2*(n+1.0D0)/r) 

864 

865  exx  =  AlCl  +  A2C1  +  ClCl  +  C2C1 

866 

867 

868  if  (zabs(exx)  .It.  dabs(zero))  then 

869  value  =  zero 

870  endif 

871 
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872  value  =  exx 

873 

874  C  THETA  STRAIN  USING  (EQ  145) 

875  elseif(tft  .eq.  6)  then 

876 

877  AlCl  =  Al_Cl*(dl_SP_CYl_al/r  -  SP_CYl_al*n2/r2) 

878 

879  A2C1  =  A2_Cl*(dl_SP_CYl_a2/r  -  SP_CYl_a2*n2/r2) 

880 

881  BlCl  =  Bl_Cl*(-dl_VXP_CYl_al*n/r  +  VXP_CY1  al*n/r2) 

882 

883  B2C1  =  B2_Cl*(-dl_VXP_CYl_a2*n/r  +  VXP_CYl_a2*n/r2) 

884 

885  ClCl  =  Cl_Cl*(0.0D0,1.0D0)*k*VRTP_CYl_al*(n  +  1.0D0)/r 

886 

887  C2Cl=C2_Cl*(0.0D0,1.0D0)*k*VRTP_CYl_a2*(n+ 1.0D0)/r 

888 

889  ett  =A1C1+A2C1+B1C1+B2C1+C1C1+C2C1 

890 

891  if  (zabs(ett)  .It.  dabs(zero))  then 

892  value  =  zero 

893  endif 

894 

895  value  =  ett 

896 

897  C  RADIAL  STRAIN  USD4G  (eq  143) 

898  elseif(tft  .eq.  7)  then 

899 

900  AlCl  =  Al_Cl*d2_SP_CYl_al 

901 

902  A2C1  =  A2_Cl*d2_SP_CYl_a2 

903 

904  BlCl  =  Bl_Cl*(dl_VXP_CYl_al  -  VXP_CYl_al/r)*n/r 

905 

906  B2C1  =  B2_Cl*(dl_VXP_CYl_a2  -  VXP_CYl_a2/r)*n/r 

907 

908  ClCl  =  Cl_Cl*(O.ODO,1.0DO)*k*dl_VRTP_CYl_al 

909 

910  C2C1  =C2_Cl*(0.0D0,1.0D0)*k*dl_VRTP_CYl_a2 

911 

912  err  =  AlCl +A2C1  +  BlCl +B2C1  +  ClCl  +  C2C1 

913 

914  if  (zabs(err)  .It.  dabs(zero))  then 

915  value  =  zero 

916  endif 

917 
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918  value  =  err 

919 

920  C  UNUSED  AT  PRESENT 

921  elseif(tft  .eq.  8)  then 

922  value  =1.0 

923 

924  C  OPTIC  dp/p/uPa  USING  (EQ  147  &  143) 

925  C  exx  =  0  @  k  =  0 


926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 


elseif(tft  .eq.  9)  then 

AlCl  =-Al_Cl*k2*SP_CYl_al 

A2C1  =  -A2_Cl*k2_SP_CYl_a2 

ClCl  =Cl_Cl*(0.0D0,-1.0D0)*k*(dl_VRTP_CYl_al  + 
1  VRTP_CYl_al*(n  +  1.0D0)/r) 

C2C1  =  C2_Cl*(0.0D0,-1.0D0)*k*(dl_VRTP_CYl_a2  + 
1  VRTP_CYl_a2*(n  +  1.0D0)/r) 

exx  =  AlCl  +  A2C1  +  ClCl  +  C2C1 

if  (zabs(exx)  .It.  dabs(zero))  then 
exx  =  zero 
endif 

AlCl  =  Al_Cl*d2_SP_CYl_al 

A2C1  =  A2_Cl*d2_SP_CYl_a2 

BlCl  =Bl_Cl*(dl_VXP_CYl_al  -  VXP_CYl_al/r)*n/r 

B2C1  =  B2_Cl*(dl_VXP_CYl_a2  -  VXP_CYl_a2/r)*n/r 

ClCl  =  Cl_Cl*(0.0D0,1.0D0)*k*dl_VRTP_CYl_al 

C2C1  =  C2_Cl*(0.0D0,1.0D0)*k*dl_VRTP_CYl_a2 

err  =  AlCl  +  A2C1  +  BlCl  +  B2C1  +  ClCl  +  C2C1 

if  (zabs(eir)  .It.  dabs(zero))  then 
err  =  zero 
endif 

dpp  =  exx  -  (no**2/2.0D0)*((pll+pl2)*err  +  pl2*exx) 
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964  value  =  dpp 

965 

966  C  OPTIC  dp/p/uPa  USING  (EQ  145  &  143) 

967  C  exx  =  constant  @  k  =  0 

968  elseif(tft  .eq.  10)  then 

969 

970  AlCl  =  Al_Cl*(dl_SP_CYl_al/r  -  SP_CYl_al*n2/r2) 

971 

972  A2C1  =  A2_C1  *(dl_SP_CYl_a2/r  -  SP_CYl_a2*n2/r2) 

973 

974  BlCl  =  Bl_Cl*(-dl_VXP_CYl_al*n/r  +  VXP_CYl_al*n/r2) 

975 

976  B2Cl=B2_Cl*(-dl_VXP_CYl_a2*n/r  + VXP_CY1  a2*n/r2) 

977 

978  ClCl  =  Cl_Cl*(0.0D0,1.0D0)*k*VRTP_CYl_al*(n  +  L0D0)/r 

979 

980  C2C1  =  C2_Cl*(O.ODO,1.0DO)*k*VRTP_CYl_a2*(n  +  1.0D0)/r 

981 

982  ett  =A1C1 +A2C1  +  BlCl +B2C1  +  ClCl +C2C1 

983 

984  if  (zabs(ett)  .It.  dabs(zero))  then 

985  value  =  zero 

986  endif 

987 

988  AlCl=Al_Cl*d2_SP_CYl_al 

989 

990  A2Cl=A2_Cl*d2_SP_CYl_a2 

991 

992  B ICl  =  B l_Cl*(dl_VXP_CYl_al  -  VXP_CYl_al/r)*n/r 

993 

994  B2C1  =  B2_Cl*(dl_VXP_CYl_a2  -  VXP_CYl_a2/r)*n/r 

995 

996  ClCl  =  Cl_Cl*(0.0D0,1.0DO)*k*dl_VRTP_CYl_al 

997 

998  C2Cl=C2_Cl*(0.0D0,1.0D0)*k*dl_VRTP_CYl_a2 

999 

1000  err  =  AlCl +  A2C1  +  BlCl +B2C1  +  ClCl +C2C1 

1001 

1002  if  (zabs(err)  .It.  dabs(zero))  then 

1003  err  =  zero 

1004  endif 

1005 

1006  exx  =  -(lame_rod/(lame_rod  +  2.0D0  *  shear_rod))*(ett  +  err) 

1007  dpp  =  exx  -  (no**2/2.0D0)*((pl l+pl2)*eiT  +  pl2*exx) 

1008  value  =  dpp 

1009 
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1010 

1011 

1012 

1013 

1014 

1015 

1016 


endif 


return 

end 
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c2.f  Sat  Jun  10  14:39:41  1995 

2  C 

3  C  subprogram  “c2.f  ’ 

4  C 

5  C  This  subprogram  was  written  and  developed  by  Mark  S.  Peloquin 

6  C 

7  C  at  NUWCDETNLON  6/10/95.  As  of  6/10/95,  there  are  no  known  bugs. 

8  C 

9  C  Please  notify  the  author  if  bugs  are  found  (203)  440-5433. 

10  C 

11  C 

12  C  Modifications  on  5-14-95;  Removed  K  &  I  Bessel  functions. 

13  C  The  routine  is  now  based  on  J  &  Y  only,  using  series  to  handle 

14  C  complex  arguments.  C2B_POT,  C2C_POT 

15 

16 

17  SUBROUTINE  C2B_POT(r,k,Om,n) 

18 

19 

20  C  EXTERNAL  VARIABLES 

21 

22  integer  n 

23  real*8  r,k,Om 

24 

25 

26  C  DEFINITIONS  FOR  COMMON  BLOCK /CYLINDER2/ 

27 

28  complex*  16  SP_CY2_bl,dl_SP_CY2_bl42_SP_CY2_bl 

29  complex*16  SP_CY2_b2,dl_SP_CY2_b2,d2_SP_CY2_b2 

30  complex*16  SP_CY2_cl,dl_SP_CY2_cl,d2_SP_CY2_cl 

31  complex*16  SP_CY2_c2,dl_SP_CY2_c2,d2_SP_CY2_c2 

32 

33  complex*16  VXP_CY2_bl,dl_VXP_CY2_bl,d2_VXP_CY2_bl 

34  complex*16  VXP_CY2_b2,dl_VXP_CY2_b2,d2_VXP_CY2_b2 

35  complex*16  VXP_CY2_cl,dl_VXP_CY2_cl,d2_VXP_CY2_cl 

36  complex*  1 6  VXP_CY2_c2,dl_VXP_CY2_c2,d2_VXP_CY2_c2 

37 

38  complex*16  VRTP_CY2_bl41_VRTP_CY2_bl,d2_VRTP_CY2_bl 

39  complex*  16  VRTP_CY2_b2,dl_VRTP_CY2_b2,d2_VRTP_CY2_b2 

40  complex*16  VRTP_CY2_cl,dl_VRTP_CY2_cl,d2_VRTP_CY2_cl 

41  complex*  16  VRTP_CY2_c2,dl_VRTP_CY2_c2,d2_VRTP_CY2_c2 

42 

43  complex*  1 6  Iame_c2,shear_c2,cl_c2,ct_c2 

44 
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45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 

62  C 

63 

64 

65 

66 

67 

68 

69  C 

70 

71 

72 

73  C 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 


complex*16  A1_C2,A2_C2,B1_C2,B2_C2,C1_C2,C2_C2 

common  /CYLINDER2/  SP_CY2_bl,dl_SP_CY2_bl,d2_SP_CY2_bl, 

1  SP_CY2_b2,dl_SP_CY2_b2,d2_SP_CY2_b2, 

1  SP_CY2_cl,dl_SP_CY2_cl,d2_SP_CY2_cl, 

1  SP_CY2_c2,dl_SP_CY2_c2,d2_SP_CY2_c2, 

1  VXP_CY2_bl,dl_VXP_CY2_bl,d2_VXP_CY2_bl, 

1  VXP_CY2_b2,dl_VXP_CY2_b2,d2_VXP_CY2_b2, 

1  VXP_CY2_cl,dl_VXP_CY2_cl,d2_VXP_CY2_cl, 

1  VXP_CY2_c2,dl_VXP_CY2_c2,d2_VXP_CY2_c2, 

1  VRTP_CY2_bl,dl_VRTP_CY2_bl,d2_VRTP_CY2_bl, 

1  VRTP_CY2_b2,dl_VRTP_CY2_b2,d2_VRTP_CY2_b2, 

1  VRTP.C  Y2_c  1  ,d  1  _VRTP_C  Y2_c  1  ,d2_VRTP_C  Y2_c  1 , 

1  VRTP_CY2_c2,dl_VRTP_CY2_c2,d2_VRTP_CY2_c2, 

1  Iame_c2,shear_c2,cl_c2,ct_c2, 

1  A1_C2,A2_C23 1_C2,B2_C2,C1_C2,C2_C2 

*4:****:^***H:****5ic5|::|::|c:ic:J:**sJ:***:iics}:3ic****4:**5!s******:le**J|:******s^**5|c*:J:5i::|::|::*s*:4: 

double  complex  cbessj,cbessy 
double  complex  dlcbessj,d2cbessj 
double  complex  dlcbessy,d2cbessy 


INTERNAL  VARIABLES 
complex*  16  p,q 

DISPLACEMENT  SCALAR  POTENTIALS  ARE  EVALUATED 

p  =  zsqit((Om**2/cl_c2**2)  -  k**2) 
d2_SP_CY2_bl  =  d2cbessj(n,p,r) 
dl_SP_CY2_bl  =  dlcbessj(n,p,r) 

SP_CY2_bl  =  cbessj(n,p,r) 
d2_SP_CY2_b2  =  d2cbessy(n,p,r) 
dl_SP_CY2_b2  =  dlcbessy(n,p,r) 

SP_CY2_b2  =  cbessy(n,p,r) 

q  =  zsqrt((Om**2/ct_c2**2)  -  k**2) 
d2_VXP_CY2_bl  =  d2cbessj(n,q,r) 
dl_VXP_CY2_bl  =  dlcbessj(n,q,r) 

VXP_CY2_bl  =  cbessj(n,q,r) 
d2_VXP_CY2_b2  =  d2cbessy(n,q,r) 
dl_VXP_CY2_b2  =  dlcbessy(n,q,r) 

VXP_CY2_b2  =  cbessy(n,q,r) 
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91  d2_VRTP_CY2_bl  =d2cbessj(n+l,q,r) 

92  dl_VRTP_CY2_bl=dlcbessj(n+l,q,r) 

93  VRTP_CY2_bl=  cbessj(n+l,q,r) 

94  d2_VRTP_CY2_b2  =  d2cbessy(n+l,q,r) 

95  dl_VRTP_CY2_b2  =  dlcbessy(n+l,q,r) 

96  VRTP_CY2_b2  =  cbessy(n+l,q,r) 

97 

98 

99 

100 
101 

102  return 

103  end 

104 

105 

106 

107  SUBROUTINE  C2C_POT(r,k,Om,n) 

108 
109 

HOC  EXTERNAL  VARIABLES 
111 

112  integer  n 

113  real*8  r,k,Om 

114 

115 

116  C  DEFINITIONS  FOR  COMMON  BLOCK  /CYLINDER2/ 

117 

118 

119  complex*16SP_CY2_bl41_SP_CY2_bl,d2_SP_CY2_bl 

120  complex*  16  SP_CY2_b2,dl_SP_CY2_b2,d2_SP_CY2_b2 

121  complex*16  SP_CY2_cl41_SP_CY2_cl,d2_SP_CY2_cl 

122  complex*16  SP_CY2_c2,dl_SP_CY2_c2,d2_SP_CY2_c2 

123 

124  complex*16  VXP_CY2_bl,dl_VXP_CY2_bl,d2_VXP_CY2_bl 

125  complex*16  VXP_CY2_b2,dl_VXP_CY2_b2,d2_VXP_CY2_b2 

126  complex*16  VXP_CY2_cl,dl_VXP_CY2_cl,d2_VXP_CY2_cl 

127  complex*  16  VXP_CY2_c2,dl_VXP_CY2_c2,d2_VXP_CY2_c2 

128 

129  complex*16  VRTP_CY2_bl,dl_VRTP_CY2_bl,d2_VRTP_CY2_bl 

130  complex*16  VRTP_CY2_b2,dl_VRTP_CY2_b2,d2_VRTP_CY2_b2 

131  complex*16  VRTP_CY2_cl,dl_VRTP_CY2_cl,d2_VRTP_CY2_cl 

132  complex*  16  VRTP_CY2_c2,dl_VRTP_CY2_c2,d2_VRTP_CY2_c2 

133 

1 34  complex*  1 6  Iame_c2,shear_c2,cl_c2,ct_c2 

135 

136  complex*16  A1_C2,A2_C2,B1_C2,B2_C2,C1_C2,C2_C2 
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137 

138 

139  common  /CYLINDER!/  SP_CY2_bLcil_SP_CY2_bl,d2_SP_CY2_bl, 
SP_CY2_b2,dl_SP_CY2_b2,d2_SP_CY2_b2, 

SP_C  Y2_c  1 4 1_SP_C  Y2_c  1  ,d2_SP_C  Y2_c  1 , 
SP_CY2_c241_SP_CY2_c2,d2_SP_CY2_c2, 
VXP_CY2_bl41_VXP_CY2_bl,d2_VXP_CY2_bl, 
VXP_CY2_b241_VXP_CY2_b2,d2_VXP_CY2_b2, 
VXP_CY2_cl41_VXP_CY2_cl42_VXP_CY2_cl, 
VXP_CY2_c241_VXP_CY2_c242_VXP_CY2_c2, 

VRTP_C  Y2_b  1 4 1_VRTP_C  Y2_b  1  ,d2_VRTP_C  Y2_b  1 , 
VRTP_CY2_b241_VRTP_CY2_b2,d2_VRTP_CY2_b2, 
VRTP_CY2_c141_VRTP_CY2_c142_VRTP_CY2_c1, 
VRTP_CY2_c241_VRTP_CY2_c2,d2_VRTP_CY2_c2, 
Iame_c2,shear_c2,cl_c2,ct_c2, 
A1_C2,A2_C2,B1_C2,B2_C2,C1_C2,C2_C2 

154  C  ********************************************=|:***********:):*****:(:^::i!* 

155 

156 

157  double  complex  cbessj,cbessy 

158  double  complex  d  1  cbessj  ,d2cbessj 

159  double  complex  dlcbessy,d2cbessy 

160 

161  C  INTERNAL  VARIABLES 

162 

1 63  complex*  1 6  p,q 

164 

165  C  DISPLACEMENT  SCALAR  POTENTIALS  ARE  EVALUATED 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 


p  =  zsqit((Om**2/cl_c2**2)  -  k**2) 
d2_SP_CY2_cl  =  d2cbessj(n,p,r) 
dl_SP_CY2_cl  =  dlcbessj(n,p,r) 
SP_CY2_cl  =  cbessj(n,p,r) 
d2_SP_CY2_c2  =  d2cbessy(n,p,r) 
dl_SP_CY2_c2  =  dlcbessy(n,p,r) 
SP_CY2_c2  =  cbessy(n,p,r) 


q  =  zsqrt((Om**2/ct_c2**2)  -  k**2) 
d2_VXP_CY2_cl  =  d2cbessj(n,q,r) 
dl_VXP_CY2_cl  =  dlcbessj(n,q,r) 
VXP_CY2_cl  =  cbessj(n,q,r) 
d2_VXP_CY2_c2  =  d2cbessy(n,q,r) 
dl_VXP_CY2_c2  =  dlcbessy(n,q,r) 
VXP_CY2_c2=  cbessy(n,q,r) 


140  1 

141  1 

142  1 

143  1 

144  1 

145  1 

146  1 

147  1 

148  1 

149  1 

150  1 

151  1 

152  1 

153 
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183 

1 84  d2_VRTP_C  Y2_c  1  =  d2cbessj  (n+ 1  ,q,r) 

185  dl_VRTP_CY2_cl  =  dlcbessj(n+l,q,r) 

186  VRTP_CY2_cl  =  cbessj(n+l,q,r) 

187  d2_VRTP_CY2_c2  =  d2cbessy(n+l,q,r) 

1 88  dl_VRTP_CY2_c2  =  dlcbessy(n+l,q,r) 

189  VRTP_CY2_c2=  cbessy(n+l,q,r) 

190 

191 

192 

193  return 

194  end 

195 

196 

197 

198  SUBROUTINE  SYS_MATRIX_RC2(n,k,ao_lcyl,bo_cl,co_c2, 

199  10m,ro,co,ri,ci,smrc2) 

200 

201  C  EXTERNAL  VARIABLES 

202 

203  integer  n 

204  real*8  k,ao_lcyl,bo_cl,co_c2,Om,ro,co,ri,ci 

205  coniplex*16  smrc2(13,13) 

206 

207  C  DEFINITIONS  FOR  COMMON  BLOCK  /CYLESfDERl/ 

208 

209  complex*16  SP_CYl_al,dl_SP_CYl_al,d2_SP_CYl_al 

210  complex*16  SP_CYl_a2,dl_SP_CYl_a2,d2_SP_CYl_a2 

211  complex*16  SP_CYl_bl,dl_SP_CYl_bl,d2_SP_CYl_bl 

212  complex*16  SP_CYl_b2,dl_SP_CYl_b2,d2_SP_CYl_b2 

213 

214  complex*16  VXP_CYl_al,dl_VXP_CYl_al,d2_VXP_CYl_al 

215  complex*16  VXP_CYl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2 

216  complex*16  VXP_CYl_bl,dl_VXP_CYl_bLd2_VXP_CYl_bl 

217  complex*16  VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2 

218 

219  complex*16  VRTP_CYl_al,dl_VRTP_CYl_al,d2_VRTP_CYl_al 

220  complex*16  VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VRTP_CYl_a2 

221  complex*16  VRTP_CYl_bl,dl_VRTP_CYl_bl,d2_VRTP_CYl_bl 

222  complex*16  VRTP_CYl_b2,dl_VRTP_CYl_b2,d2_VRTP_CYl_b2 

223 

224  complex*  1 6  lame_c  1  ,shear_c  1  ,cl_c  1  ,ct_c  1 

225  complex*16  A1_C1,A2_C131_C1,B2_C1,C1_C1,C2_C1 

226 

227 

228  common  /CYLINDERl/  SP_CYl_al,dl_SP_CYl_al,d2_SP_CYl_al, 
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229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243  C 

244 

245 

246 

247  C 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 


1  SP_CYl_a2,dl_SP_CYl_a2,d2_SP_CYl_a2, 

1  SP_CYl_bl,dl_SP_CYl_bl,d2_SP_CYl_bl, 

1  SP_CYl_b2,dl_SP_CYl_b2,d2_SP_CYl_b2, 

1  VXP_CYl_al,dl_VXP_CYl_al,d2_VXP_CYl_al, 

1  VXP_CY  l_a2,d  1_VXP_C  Yl_a2,d2_VXP_CY  l_a2, 

1  VXP_CYl_bl,dl_VXP_CYl_bl,d2_VXP_CYl_bl, 

1  VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2, 

1  VRTP_CYl_al,dl_VRTP_CYl_al,d2_VRTP_CYl_al, 

1  VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VRTP_CYl_a2, 

1  VRTP_CYl_bl,dl_VRTP_CYl_bl,d2_VRTP_CYl_bl, 

1  VRTP_CYl_b2.dl_VRTP_CYl_b2,d2_VRTP_CYl_b2, 

1  lame_cl,shear_cl,cl_cl,ct_cl, 

1  A1_C1,A2_C1,B1_C132_C1,C1_C1,C2_C1 

ai:  4:  :t:  ***********  :|:  :*:  ***  :f:  =»:  *************:*:  3*c  ♦**:*:*  5|:  ***  *#!*:$:**  :^  :|:  *:$£*  ij:  sj: 


DEFINITIONS  FOR  COMMON  BLOCK  /CYLINDER2/ 


complex*  16  SP_CY2_bl,dl_SP_CY2_bl,d2_SP_CY2_bl 
complex*  16  SP_CY2_b2,dl_SP_CY2_b2,d2_SP_CY2_b2 
complex*  1 6  SP_C Y2_c  1  ,d  1_SP_C Y2_c  1  ,d2_SP_C Y2_c  1 
complex*  16  SP_CY2_c2,dl_SP_CY2_c2,d2_SP_CY2_c2 

complex*16  VXP_CY2_bl,dl_VXP_CY2_bl,d2_VXP_CY2_bl 
complex*  16  VXP_CY2_b2,dl_VXP_CY2_b2,d2_VXP_CY2_b2 
complex*16  VXP_CY2_cl,dl_VXP_CY2_cl,d2_VXP_CY2_cl 
complex*16  VXP_CY2_c2,dl_VXP_CY2_c2,d2_VXP_CY2_c2 

complex*16  VRTP_CY2_bl,dl_VRTP_CY2_bl,d2_VRTP_CY2_bl 
complex*  16  VRTP_CY2_b2,dl_VRTP_CY2_b2,d2_VRTP_CY2_b2 
complex*16VRTP_CY2_cl,dl_VRTP_CY2_cl,d2_VRTP_CY2_cl 
complex*  1 6  VRTP_CY2_c2,dl_VRTP_C  Y2_c2,d2_VRTP_CY2_c2 

complex*  1 6  Iame_c2,shear_c2,cl_c2,ct_c2 

complex*16  A1_C2,A2_C2,B1_C2,B2_C2,C1_C2,C2_C2 


common  /CYLINDER2/  SP_CY2_bl,dl_SP_CY2_bl,d2_SP_CY2_bl, 
1  SP_CY2_b2,dl_SP_CY2_b2,d2_SP_CY2_b2, 

1  SP_CY2_c  1  ,dl_SP_CY2_c  l,d2_SP_CY2_c  1, 

1  SP_CY2_c241_SP_CY2_c2,d2_SP_CY2_c2, 

1  VXP_CY2_bl41_VXP_CY2_bl,d2_VXP_CY2_bl, 
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275 

1 

VXP_CY2_b2,dl_VXP_CY2_b2,d2_VXP_CY2_b2, 

276 

1 

VXP_CY2_cl,dl_VXP_CY2_cl,d2_VXP_CY2_cl, 

277 

1 

VXP_CY2_c2,dl_VXP_CY2_c2,d2_VXP_CY2_c2, 

278 

1 

VRTP_CY2_bl,dl_VRTP_CY2_bl,d2_VRTP_CY2_bl, 

279 

1 

VRTP_CY2_b2,dl_VRTP_CY2_b2,d2_VRTP_CY2_b2, 

280 

1 

VRTP_CY2_cl,dl_VRTP_CY2_cl,d2_VRTP_CY2_cl, 

281 

1 

VRTP_CY2_c2,dl_VRTP_CY2_c2,d2_VRTP_CY2_c2, 

282 

1 

Iame_c2,shear_c2,cl_c2,ct_c2, 

283 

1 

A1_C2,A2_C231_C2,B2_C2,C1_C2,C2_C2 

284 

285  C  ***************************************!|!************>|:*S|!*********H!* 

286 

287 

288 

289  C  DEFINITION  FOR  COMMON  BLOCK /ROD/ 

290 

29 1  common  /ROD/  SP_rod,dl_SP_rod,d2_SP_rod,VXP_rod, 

292  ldl_VXP_rod42_VXP_rod,VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 

293  1 ,  Al_rod,B  l_rod,C  l_rod,lame_rod,shear_rod 

294 

295 

296  complex*16  SP_rod,dl_SP_rod,d2_SP_rod 

297  complex*16  VXP_rod,dl_VXP_rod,d2_VXP_rod 

298  complex*16  VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 

299  complex*  1 6  A  l_rod,B  l_rod,C  l_rod,lame_rod,shear_rod 

300 

301  C  ****************************************************************** 

302 

303  C  DEFINITIONS  FOR  COMMON  BLOCK  /OFLUID/ 

304 

305  common /OFLUID/ OFSC,dl_OFSC,M_OF 

306 

307  complex*  16  OFSC,dl_OFSC,M_OF 

308 

309  C  ****************************************************************** 

310 

311  C  ****************************************************************** 

312 

313  C  DEFINITIONS  FOR  COMMON  BLOCK  /IFLUID/ 

314 

315  common /BFLUID/ IFSC,dl_IFSC,D_IF 

316 

3 17  complex*  1 6  IFSC,dl_IFSC,D_IF 

318 

319  C  ******************************♦****♦**♦♦*=(:♦♦*****♦♦:(:♦*****♦♦*♦**** 

320 
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321 

322  C  INTERNAL  VARIABLES 

323 

324  complex*16L2GCl,L2GC2 

325  real*8  a,b,c,a2,b2,c2,k2 

326  integer  n2 

327 


328 

a 

=  ao_lcyl 

329 

b 

=  bo_cl 

330 

c 

=  co_c2 

331 

a2 

=  ao_lcyl**2 

332 

b2 

=  bo_cl**2 

333 

c2 

=  co_c2**2 

334 

n2 

=  n**2 

335 

k2 

=  k**2 

336  L2GC1  =  lame_cl  +  2.0D0  *  shear_cl 

337  L2GC2  =  lame_c2  +  2.0D0  *  shear_c2 

338 

339 

340 

341  C  BOUNDARY  CONDITION  #1  (EQ  229) 

342 

343  sinrc2(l,l)  =  L2GC2*d2_SP_CY2_cl  +  (lame_c2/c)* 

344  ldl_SP_CY2_cl  -  lame_c2*SP_CY2_cl*(n2/c2  +  k2)  + 

345  lro*Om**2*OFSC/dl_OFSC*dl_SP_CY2_cl 

346 

347  smrc2(l,2)  =  L2GC2*d2_SP_CY2_c2  +  (lame_c2/c)* 

348  ldl_SP_CY2_c2  -  lame_c2*SP_CY2_c2*(n2/c2  +  k2)  + 

349  lro*Om**2*OFSC/dl_OFSC*dl_SP_CY2_c2 

350 

351  snirc2(l,3)  =  -2.0D0*shear_c2*n/c2*(VXP_CY2_cl-c* 

352  ldl_VXP_CY2_cl)  + 

353  ln*ro*Om**2*OFSC*VXP_CY2_cl/(dl_OFSC*c) 

354 

355  sinrc2(l,4)  =  -2.0D0*shear_c2*n/c2*(VXP_CY2_c2-c* 

356  ldl_VXP_CY2_c2)  + 

357  ln*ro*Om**2*OFSC*VXP_CY2_c2/(dl_OFSC*c) 

358 

359  smrc2(l,5)  =  (0.0D0,1.0D0)*2.0D0*shear_c2*k*dl_VRTP_CY2_cl 

360  1  +  (O.ODO,1.0DO)*k*ro*Om**2*OFSC*VRTP_CY2_cl/dl_OFSC 

361 

362  sinrc2(l,6)  =  (O.ODO,LODO)*2.0DO*shear_c2*k*dl_VRTP_CY2_c2 

363  1  +  (O.ODO,1.0DO)*k*ro*Om**2*OFSC*VRTP_CY2_c2/dl_OFSC 

364 

365  sinrc2(l,7)  =  (O.ODO.O.ODO) 

366 
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367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 


smrc2(l,8)  =  (O.ODO,0.pDO) 
smrc2(l,9)  =  (O.ODO,O.ODO) 
smrc2(l,10)=  (O.ODO,O.ODO) 
smrc2(l,ll)=  (O.ODO,O.ODO) 
smrc2(l,12)=  (O.ODO,O.ODO) 
smrc2(l,13)=  (O.ODO,O.ODO) 

C  BOUNDARY  CONDITION  #2  (EQ  215) 

sinrc2(2,l)  =  (0.0D0,1.0D0)*k*2.0D0*shear_c2*dl_SP_CY2_cl 

smrc2(2,2)  =  (O.ODO,1.0DO)*k*2.0DO*shear_c2*dl_SP_CY2_c2 

smrc2(2,3)  =  (0.0D0,1.0D0)*k*n*shear_c2*VXP_CY2_cl/c 

smrc2(2,4)  =  (O.OD0,l.ODO)*k*n*shear_c2*VXP_CY2_c2/c 

smrc2(2,5)  =  shear_c2*(VRTP_CY2_cl*(n/c2  -  k2  + 

1  1.0D0/C2)  -  dl_VRTP_CY2_cl*(n  +  1.0D0)/c  -  d2_VRTP_CY2_cl) 

snirc2(2,6)  =  shear_c2*(VRTP_CY2_c2*(ii/c2  -  k2  + 

1  1.0D0/C2)  -  dl_VRTP_CY2_c2*(n  +  1.0D0)/c  -  d2_VRTP_CY2_c2) 

smrc2(2,7)  =  (O.ODO,O.ODO) 

smrc2(2,8)  =  (O.ODO.O.ODO) 

sinrc2(2,9)  =  (0.0D0,0.0D0) 

sinrc2(2,10)  =  (O.ODO.O.ODO) 

smrc2(2,ll)  =  (O.ODO,O.ODO) 

smrc2(2,12)  =  (0.0D0,0.0D0) 

sinrc2(2,13)  =  (0.0D0,0.0D0) 
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413  C  BOUNDARY  CONDITION  #3  (EQ  216) 

414 

415  smrc2(3,l)  =  (shear_c2*2.0D0*n/c)*((1.0D0/c)* 

416  lSP_CY2_cl  -  dl_SP_CY2_cl) 

417 

4 1 8  sinrc2(3,2)  =  (shear_c2*2.0D0*n/c)*((  1  .ODO/c)* 

419  lSP_CY2_c2-dl_SP_CY2_c2) 

420 

421  sinrc2(3,3)  =  shear_c2*(-d2_VXP_CY2_c  1  +  l.ODO/c* 

422  ldl_VXP_CY2_cl  -  n2/c2*VXP_CY2_cl) 

423 

424  smrc2(3,4)  =  shear_c2*(-d2_VXP_C  Y2_c2  +  1  .ODO/c* 

425  ldl_VXP_CY2_c2  -  n2/c2*VXP_CY2_c2) 

426 

427  smrc2(3,5)  =  (0.0D0,1.0D0)*k*shear_c2*(dl_VRTP_CY2_cl 

428  1- VRTP_CY2_cl*(1.0D0  +  n)/c) 

429 

430  smrc2(3,6)  =  (O.ODO,  1.0D0)*k*shear_c2*(dl_VRTP_CY2_c2 

431  1-  VRTP_CY2_c2*(1.0D0  +  n)/c) 

432 

433  smrc2(3,7)  =  (O.ODO, O.ODO) 

434 

435  sinrc2(3,8)  =  (O.ODO,O.ODO) 

436 

437  snirc2(3,9)  =  (O.ODO, O.ODO) 

438 

439  smrc2(3,10)  =  (O.ODO,O.ODO) 

440 

441  sinrc2(3,ll)  =  (O.ODO,O.ODO) 

442 

443  sinrc2(3, 12)  =  (O.ODO,O.ODO) 

444 

445  smrc2(3,13)  =  (O.ODO,O.ODO) 

446 

447 

448 

449  C  BOUNDARY  CONDITION  #5  (EQ  218) 

450 

45 1  sinrc2(4,l)  =  L2GC2*d2_SP_CY2_bl  +  lame_c2/b 

452  l*dl_SP_CY2_bl  -  lame_c2*SP_CY2_bl*(n2/b2  +  k2) 

453 

454  snirc2(4,2)  =  L2GC2*d2_SP_CY2_b2  +  lame_c2/b 

455  l*dl_SP_CY2_b2  -  lame_c2*SP_CY2_b2*(n2/b2  +  k2) 

456 

457  sinrc2(4,3)  =  -2.0DO*shear_c2*n/b2*(VXP_CY2_bl  -  b 

458  l*dl_VXP_CY2_bl) 


104 


TD  11,065 


459 

460  smrc2(4,4)  =  -2.0DO*shea^_c2*n^2*(VXP_CY2_b2  -  b 

461  l*dl_VXP_CY2_b2) 

462 

463  smrc2(4,5)  =  (O.ODO,1.0DO)*2.0DO*shear_c2*k*dl_VRTP_CY2_bl 

464 

465  snirc2(4,6)  =  (0.0D0,1.0D0)*2.0D0*shear_c2*k*dl_VRTP_CY2_b2 

466 

467  sinrc2(4,7)  =  -L2GCl*d2_SP_CYl_bl  -  lame_cl/b* 

468  ldl_SP_CYl_bl  +  lame_cl*SP_CYl_bl*(n2/b2  +  k2) 

469 

470  smrc2(4,8)  =  -L2GCl*d2_SP_CYl_b2  -  lame_cl/b* 

471  ldl_SP_CYl_b2  +  lame_cl*SP_CYl_b2*(n2/b2  +  k2) 

472 

473  smrc2(4,9)  =  2.0D0*shear_cl*n/b2*(VXP_CYl_bl  - 

474  lb*dl_VXP_CYl_bl) 

475 

476  smrc2(4,10)  =  2.0D0*shear_cl*n/b2*(VXP_CYl_b2  - 

477  lb*dl_VXP_CYl_b2) 

478 

479  snirc2(4,ll)  =  -(O.OD0,1.0DO)*2.OD0*shear_cl*k*dl_VRTP_CYl_bl 

480 

481  smrc2(4,12)  =  -(0.0D0,1.0D0)*2.0D0*shear_cl*k*dl_VRTP_CYl_b2 

482 

483  smrc2(4,13)  =  (0.0D0,0.0D0) 

484 

485 

486 

487  C  BOUNDARY  CONDITION  #6  (EQ  219) 

488 

489  smrc2(5,l)  =  (0.0D0,1.0D0)*k*2.0D0*shear_c2*dl_SP_CY2_bl 

490 

491  smrc2(5,2)  =  (0.0D0,L0D0)*k*2.0D0*shear_c2*dl_SP_CY2_b2 

492 

493  smrc2(5,3)  =  (O.ODO,1.0DO)*k*n*shear_c2/b*VXP_CY2_bl 

494 

495  sinrc2(5,4)  =  (0.0D0,L0D0)*k*n*shear_c2/b*VXP_CY2_b2 

496 

497  smrc2(5,5)  =  shear_c2*(VRTP_CY2_bl*((n+1.0D0)/b2  -  k2) 

498  1-  dl_VRTP_CY2_bl*(n+1.0D0)/b  -  d2_VRTP_CT2_bl) 

499 

500  smrc2(5,6)  =  shear_c2*(VRTP_CY2_b2*((n+l  .0D0)/b2  -  k2) 

501  1-  dl_VRTP_CY2_b2*(n+1.0D0)/b  -  d2_VRTP_CY2_b2) 

502 

503  smrc2(5,7)  =  (0.0D0,-1.0D0)*k*2.0D0*shear_cl*dl_SP_CYl_bl 

504 
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505  smrc2(5,8)  =  (O.ODO,- 1 .0D0)*k*2.0D0*shear_cl  *dl_SP_CYl_b2 

506 

507  smrc2(5,9)  =  (O.ODO, -1.0D0)*k*n*shear_cl/b*VXP_CYl_bl 

508 

509  smrc2(5.10)  =  (O.ODO, -1.0D0)*k*n*shear_cl/b*VXP_CYl_b2 

510 

511  smrc2(5,ll)  =  -(shear_cl*(VRTP_CYl_bl*(n/b2  -  k2  +  1.0D0/b2)  - 

512  ldl_VRTP_CYl_bl*(n/b+1.0D0/b)  -  d2_VRTP_CYl_bl)) 

513 

514  sinrc2(5,12)  =  -(shear_cl*(VRTP_CYl_b2*(n/b2  -  k2  +  1.0D0/b2)  - 

515  ldl_VRTP_CYl_b2*(n/bf  l.ODO/b)  -  d2_VRTP_CYl_b2)) 

516 

517  sinrc2(5,13)  =  (O.ODO,O.ODO) 

518 

519 

520 

521  C  BOUNDARY  CONDITION  #7  (EQ  220) 

522 

523  smrc2(6,l)  =  shear_c2*2.0D0*n/b*(1.0D0/b*SP_CY2_bl 

524  1- dl_SP_CY2_bl) 

525 

526  smrc2(6,2)  =  shear_c2*2.0D0*n/b*(l  .0D0/b*SP_CY2_b2 

527  1-  dl_SP_CY2_b2) 

528 

529  sinrc2(6,3)  =  shear_c2*(-d2_VXP_C  Y2_b  1  +  dl_VXP_C  Y2_bl/b 

530  1  -  n2/b2*VXP_CY2_bl) 

531 

532  sinrc2(6,4)  =  shear_c2*(-d2_VXP_CY2_b2  +  dl_VXP_CY2_b2/b 

533  1  -  n2/b2*VXP_CY2_b2) 

534 

535  smrc2(6,5)  =  (0.0D0,1.0D0)*k*shear_c2*(dl_VRTP_CY2_bl  - 

536  1  VRTP_CY2_bl*(1.0D0+n)/b) 

537 

538  smrc2(6,6)  =  (0.0D0,1 .0D0)*k*shear_c2*(dl_VRTP_CY2_b2  - 

539  1  VRTP_CY2_b2*(1.0D0+n)/b) 

540 

541  smrc2(6,7)  =  -2.0D0*n*shear_cl/b*(1.0D0/b*SP_CYl_bl 

542  1  -  dl_SP_CYl_bl) 

543 

544  sinrc2(6,8)  =  -2.0D0*n*shear_cl/b*(1.0D0/b*SP_CYl_b2 

545  1  -  dl_SP_CYl_b2) 

546 

547  smrc2(6,9)  =  -shear.cl  *(-d2_VXP_CYl_bl  +  dl_VXP_CYl_bl/b 

548  1  -  ii2/b2*VXP_CYl_bl) 

549 

550  smrc2(6,10)  =  -shear_cl*(-d2_VXP_CYl_b2  +  dl_VXP_CYl_b2/b 
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551  1  -  n2/b2*  VXP_CYl_b2) 

552 

553  sinrc2(6,ll)  =  (0.0D0,-1.0D0)*k*shear_cl*(dl_VRTP_CYl_bl  - 

554  1 VRTP_CYl_bl  *(1 .0/b  +  n/b)) 

555 

556  sinrc2(6,12)  =  (O.ODO.-1.0DO)*k*shear_cl*(dl_VRTP_CYl_b2  - 

557  lVRTP_CYl_b2*(1.0D0/b  +  n/b)) 

558 

559  smrc2(6,13)=(0.0D0,0.0D0) 

560 


579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 


sinrc2(7,8)  =  -dl_SP_CYl_b2 
smrc2(7,9)  =  -n*VXP_CYl_bl/b 
sinrc2(7,10)  =  -n*VXP_CYl_b2/b 
smrc2(7,l  1)  =  (O.ODO,-1.0DO)*k*VRTP_CYl_bl 
smrc2(7,12)  =  (0.0D0,-1.0D0)*k*VRTP_CYl_b2 
smrc2(7,13)  =  (O.ODO.O.ODO) 


593  C  BOUNDARY  CONDITION  #9  (EQ  222) 


594 


595  sinrc2(8. 1)  =  -n*SP_CY2_bl/b 


596 


107 


TD  11,065 


597 

598 

599 

600 
601 
602 

603 

604 

605 

606 

607 

608 

609 

610 
611 
612 

613 

614 

615 

616 

617 

618 

619 

620 
621 
622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 


smrc2(8,2)  =  -n*SP_CY2_b2/b 
smrc2(8,3)  =  -dl_VXP_CY2_bl 
smrc2(8,4)  =  -dl_VXP_CY2_b2 
smrc2(8,5)  =  (0.0D0,1.0D0)*k*VRTP_CY2_bl 
smrc2(8,6)  =  (O.ODO,1.0DO)*k*VRTP_CY2_b2 
smrc2(8,7)  =  n*SP_CYl_bl/b 
sinrc2(8,8)  =  n/b*SP_CYl_b2 
smrc2(8.9)  =  dl_VXP_CYl_bl 
smrc2(8,10)  =  dl_VXP_CYl_b2 
smrc2(8,ll)=(0.0D0,-1.0D0)*k*VRTP_CYl_bl 
smrc2(8,12)=(0.0D0,-1.0D0)*k*VRTP_CYl_b2 
smrc2(8,13)=  (O.ODO.O.ODO) 

C  BOUNDARY  CONDITION  #10  (EQ  223) 

smrc2(9.1)  =  (O.ODO,1.0DO)*k*SP_CY2_bl 
smrc2(9,2)  =  (O.ODO,1.0DO)*k*SP_CY2_b2 
sinrc2(9,3)  =  (O.ODO.O.ODO) 
smrc2(9,4)  =  (O.ODO.O.ODO) 

smrc2(9.5)  =  -dl_VRTP_CY2_bl  -  (n  +  1.0D0)*VRTP_CY2_bl 
1/b 

sinrc2(9.6)  =  -dl_VRTP_CY2_b2  -  (n  +  1.0D0)*VRTP_CY2_b2 
1/b 

smrc2(9.7)  =  (O.ODO.-1.0DO)*k*SP_CYl_bl 
smrc2(9.8)  =  (0.0D0,-1.0D0)*k*SP_CYl_b2 
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643  smrc2(9,9)  =  (O.ODO.O.ODO) 

644 

645  smrc2(9. 10)  =  (O.ODO.O.ODO) 

646 

647  smrc2(9,ll)  =  dl_VRTP_CYl_bl  +  VRTP_CYl_bl*(n+1.0D0)/b 

648 

649  smrc2(9,12)  =  dl_VRTP_CYl_b2  +  VRTP_CYl_b2*(n+1.0D0)/b 

650 

651  smrc2(9,13)  =  (O.ODO.O.ODO) 

652 

653 

654 

655  C  BOUNDARY  CONDITION  #1 1  (EQ  224) 

656 

657 

658  snirc2(10.1 )  =  (O.ODO.O.ODO) 

659 

660  smrc2(10.2)  =  (O.ODO.O.ODO) 

661 

662  smrc2(10.3)  =  (O.ODO.O.ODO) 

663 

664  sinrc2(10.4)  =  (O.ODO.O.ODO) 

665 

666  snirc2(10.5)  =  (O.ODO.O.ODO) 

667 

668  smrc2(10,6)  =  (O.ODO.O.ODO) 

669 

670  smrc2(10.7)  =  L2GCl*d2_SP_CYl_al  +  (lame_cl/a)* 

67 1  ldl_SP_CYl_al  -  lame_cl*SP_CYl_al *(ii2/a2  +  k2) 

672 

673  smrc2(10,8)=L2GCl*d2_SP_CYl_a2  +  (lame_cl/a)* 

674  ldl_SP_CYl_a2  -  lame_cl*SP_CYl_a2*(n2/a2  +  k2) 

675 

676  smrc2(10.9)  =  -2.0D0*shear_cl*n/a2*(VXP_CYl_al 

677  1-  a*dl_VXP_CYl_al) 

678 

679  smrc2(10,10)  =  -2.0D0*shear_cl*n/a2*(VXP_CYl_a2 

680  1-  a*dl_VXP_CYl_a2) 

681 

682  smrc2(10.1 1)  =  (0.0DO.1.0D0)*2.ODO*shear_cl*k*dl_VRTP_CYl_al 

683 

684  smrc2(10,12)  =  (0.0D0,1.0D0)*2.0D0*shear_cl*k*dl_VRTP_CYl_a2 
685' 

686  smrc2(10.13)  =  +ri*Om**2*IFSC 

687 


688 
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689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 


C  BOUNDARY  CONDITION  #12  (EQ  225) 

sinrc2(ll,l)  =  (O.ODO.O.ODO) 
sinrc2(ll,2)  =  (O.ODO.O.ODO) 
smrc2(11.3)  =  (O.ODO.O.ODO) 
smrc2(ll,4)  =  (O.ODO.O.ODO) 
snirc2(ll,5)  =  (O.ODO.O.ODO) 
smrc2(ll,6)  =  (O.ODO.O.ODO) 

smrc2(11.7)  =  (O.ODO,1.0DO)*k*2.0DO*shear_cl*dl_SP_CYl_al 

sinrc2(ll,8)  =  (0.0D0,1.0D0)*k*2.0D0*shear_cl*dl_SP_CYl_a2 

smrc2(ll,9)  =  (0.0D0,1.0D0)*k*n*shear_cl*VXP_CYl_al/a 

sinrc2(ll,10)  =  (0.0D0,1.0D0)*k*n*shear_cl*VXP_CYl_a2/a 

smrc2(ll,ll)  =  shear_cl*(VRTP_CYl_al*(ii/a2  -  k2  + 

1  1.0D0/a2)  -  dl_VRTP_CYl_al*(n  +  1.0D0)/a  -  d2_VRTP_CYl_al) 

sinrc2(ll,12)  =  shear_cl*(VRTP_CYl_a2*(n/a2  -  k2  + 

1  1.0D0/a2)  -  dl_VRTP_CYl_a2*(n  +  1.0D0)/a  -  d2_VRTP_CYl_a2) 

sinrc2(ll,13)  =  (O.ODO.O.ODO) 

C  BOUNDARY  CONDITION  #13  (EQ  226) 

sinrc2(12,l)  =  (O.ODO.O.ODO) 
smrc2(12,2)  =  (O.ODO.O.ODO) 
smrc2(12,3)  =  (O.ODO.O.ODO) 
smrc2(12.4)  =  (O.ODO.O.ODO) 
smrc2(12,5)  =  (O.ODO.O.ODO) 
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735 

736  sinrc2(12,6)  =  (O.ODO.O.ODO) 

737 

738  smrc2(12,7)  =  (shear_cl*2.0DO*n/a)*((1.0DO/a)* 

739  lSP_CYl_al  -  dl_SP_CYl_al) 

740 

741  smrc2(12,8)  =  (shear_cl*2.0D0*ii/a)*((1.0D0/a)* 

742  lSP_CYl_a2-dl_SP_CYl_a2) 

743 

744  sinrc2(12.9)  =  shear_cl*(-d2_VXP_CYl_al  +  l.ODO/a* 

745  ldl_VXP_CYl_al-n2/a2*VXP_CYl_al) 

746 

747  smrc2(12,10)  =  shear_cl*(-d2_VXP_CYl_a2  +  l.ODO/a* 

748  ldl_VXP_CYl_a2-n2/a2*VXP_CYl_a2) 

749 

750  sinrc2(12,ll)  =  (0.0D0,1.0D0)*k*shear_cl*(dl_VRTP_CYl_al 

751  1-  VRTP_CYl_al*(1.0D0  +  n)/a) 

752 

753  smrc2(12,12)  =  (0.0D0,1.0D0)*k*shear_cl*(dl_VRTP_CYl_a2 

754  1-  VRrP_CYl_a2*(l  .ODO  +  n)/a) 

755 

756 

757  smrc2(12,13)  =  (O.ODO.O.ODO) 

758 

759 

760  C  BOUNDARY  CONDITION  #14  (EQ  227) 

761 

762 

763  smrc2(13,l)  =  (O.ODO.O.ODO) 

764 

765  sinrc2(13.2)  =  (O.ODO.O.ODO) 

766 

767  smrc2(13.3)  =  (O.ODO.O.ODO) 

768 

769  smrc2(13.4)  =  (O.ODO.O.ODO) 

770 

77 1  sinrc2(13.5)  =  (O.ODO.O.ODO) 

772 

773  sinrc2(13,6)  =  (O.ODO.O.ODO) 

774 

775  smrc2(13.7)  =  dl_SP_CYl_al 

776 

777  smrc2(13.8)  =  dl_SP_CYl_a2 

778 

779  smrc2(13.9)=ii/a*VXP_CYl_al 

780 
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781  smrc2(13,10)  =  n/a*VXP_CYl_a2 

782 

783  smrc2(13,ll)  =  (0.0D0,1.0D0)*k*VRTP_CYl_al 

784 

785  smrc2(13,12)  =  (0.0DO,1.0D0)*k*VRTP_CYl_a2 

786 

787  sinrc2(13,13)  =  -dl_IFSC 

788 

789 

790  C  END  BOUNDARY  CONDITIONS  FOR  MATRIX  “smrc2” 

791 

792 

793 

794  return 

795  end 

796 

797 

798 

799 

800  SUBROUTINE  ABC_RC2_INVERT(n,exctype,smrc2,a,c) 

801 
802 

803  C  EXTERNAL  VARIABLES 

804 

805  integer  n,exctype 

806  real*8  a,c 

807  compIex*16  smrc2(13,13) 

808 

809  C  DEFINITIONS  FOR  COMMON  BLOCK  /CYLINDERl/ 

810 

811  complex*16  SP_CYl_al,dl_SP_CYl_al,d2_SP_CYl_al 

812  complex*16  SP_CYl_a2,dl_SP_CYl_a2,d2_SP_CYl_a2 

813  complex*16  SP_CYl_bl,dl_SP_CYl_bl,d2_SP_CYl_bl 

814  complex*16  SP_CYl_b2,dl_SP_CYl_b2,d2_SP_CYl_b2 

815 

816  complex*16  VXP_CYl_al,dl_VXP_CYl_al,d2_VXP_CYl_al 

817  complex*16  VXP_CYl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2 

818  complex*16  VXP_CYl_bLdl_VXP_CYl_bLd2_VXP_CYl_bl 

819  complex*16  VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2 

820 

821  complex*16  VRTP_CYl_al,dl_VRTP_CYl_al,d2_VRTP_CYl_al 

822  complex*16  VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VRTP_CYl_a2 

823  complex*16  VRTP_CYl_bl,dl_VRTP_CYl_bl,d2_VRTP_CYl_bl 

824  complex*16  VRTP_CYl_b2,dl_VRTP_CYl_b2,d2_VRTP_CYl_b2 

825 

826  complex*16  lame_cl,shear_cl,cl_cl,ct_cl 
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827  complex*16  A1_C1,A2_C1,B1_C132_C1,C1_C1,C2_C1 

828 

829  common  /CYLINDERl/  SP_CYl_al,dl_SP_CYl_al,d2_SP_CYl_al, 

830  1  SP_CYl_a2,dl_SP_CYl_a2,d2_SP_CYl_a2, 

831  1  SP_CYl_bl,dl_SP_CYl_bl,d2_SP_CYl_bl, 

832  1  SP_CYl_b2,dl_SP_CYl_b2,d2_SP_CYl_b2, 

833  1  VXP_CYl_al,dl_VXP_CYl_al,d2_VXP_CYl_al, 

834  1  VXP_CYl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2, 

835  1  VXP_CYl_bl,dl_VXP_CYl_bl,d2_VXP_CYl_bl, 

836  1  VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2, 

837  1  VRTP_CYl_al,dl_VRTP_CYl_al,d2_VRTP_CYl_al, 

838  1  VRTP_CYl_a2,dl_VRTP_CYl_a242_VRTP_CYl_a2, 

839  1  VRTP_CYl_bl,dl_VRTP_CYl_bl,d2_VRTP_CYl_bl, 

840  1  VRTP_CYl_b2,dl_VRTP_CYl_b2,d2_VRTP_CYl_b2, 

841  1  lame_cl,shear_cl,cl_cl,ct_cl, 

842  1  A1_C1,A2_C1,B1_C1,B2_C1,C1_C1,C2_C1 

843 

844  C  *********************:»!**♦**♦♦***♦♦**♦**♦♦♦**♦***♦*****♦♦****♦♦**** 

845 

846 

847  C  DEFINITIONS  FOR  COMMON  BLOCK  /CYLINDER2/ 

848 

849  complex*16  SP_CY2_bl,dl_SP_CY2_bl,d2_SP_CY2_bl 

850  complex*16  SP_CY2_b2,dl_SP_CY2_b2,d2_SP_CY2_b2 

851  complex*16  SP_CY2_cl,dl_SP_CY2_cl,d2_SP_CY2_cl 

852  complex*16  SP_CY2_c2,dl_SP_CY2_c2,d2_SP_CY2_c2 

853 

854  complex*  16  VXP_CY2_bl,dl_VXP_CY2_bl,d2_VXP_CY2_bl 

855  complex*16  VXP_CY2_b2,dl_VXP_CY2_b2,d2_VXP_CY2_b2 

856  complex*16  VXP_CY2_cl41_VXP_CY2_cl,d2_VXP_CY2_cl 

857  complex*16  VXP_CY2_c241_VXP_CY2_c2,d2_VXP_CY2_c2 

858 

859  complex*16  VRTP_CY2_bl41_VRTP_CY2_bl,d2_VRTP_CY2_bl 

860  complex*  1 6  VRTP_CY2_b241_VRTP_C  Y2_b2,d2_VRTP_CY2_b2 

861  complex*16  VRTP_CY2_cl41_VRTP_CY2_cl,d2_VRTP_CY2_cl 

862  complex*16  VRTP_CY2_c241_VRTP_CY2_c2,d2_VRTP_CY2_c2 

863 

864  complex*  16  Iame_c2,shear_c2,cl_c2,ct_c2 

865 

866  complex*16  A1_C2,A2_C2,B1_C232_C2,C1_C2,C2_C2 

867 

868 

869  common  /CYLINDER2/  SP_CY2_bl41_SP_CY2_bl,d2_SP_CY2_bl, 

870  1  SP_CY2_b241_SP_CY2_b2,d2_SP_CY2_b2, 

871  1  SP_CY2_cl41_SP_CY2_cl,d2_SP_CY2_cl, 

872  1  SP_CY2_c241_SP_CY2_c2,d2_SP_CY2_c2, 
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873  1  VXP_CY2_bl,<il_VXP_CY2_bl,d2_VXP_CY2_bl, 

874  1  VXP_CY2_b2,dl_VXP_CY2_b2,d2_VXP_CY2_b2, 

875  1  VXP_CY2_cl,dl_VXP_CY2_cl,d2_VXP_CY2_cl, 

876  1  VXP_CY2_c2,dl_VXP_CY2_c2,d2_VXP_CY2_c2, 

877  1  VRTP_CY2_bl,dl_VRTP_CY2_bl,d2_VRTP_CY2_bl, 

878  1  VRTP_CY2_b2,dl_VRTP_CY2_b2,d2_VRTP_CY2_b2, 

879  1  VRTP_CY2_cl,dl_VRTP_CY2_cl,d2_VRTP_CY2_cl, 

880  1  VRTP_CY2_c2,dl_VRTP_CY2_c2,d2_VRTP_CY2_c2, 

881  1  Iame_c2,shear_c2,cl_c2,ct_c2, 

882  1  A1_C2,A2_C2,B1_C2,B2_C2,C1_C2,C2_C2 

883 

884  C  *********************** *******************’K’N’l=s|!!t:!f!!|'s|=!(:* !(:♦!)! !|!:)t***s|:***4:* 

885 

886 

887 

888  C  DEFINITIONS  FOR  COMMON  BLOCK /ROD/ 

889 

890  common  /ROD/  SP_rod,d  l_SP_rod,d2_SP_rod,  VXP_rod, 

891  ldl_VXP_rod,d2_VXP_rod,VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 

892  1 ,  A  l_rod,B  l_rod,C  l_rod,lame_rod,shear_rod 

893 

894 

895  complex*16  SP_rod,dl_SP_rod,d2_SP_rod 

896  complex*16  VXP_rod,dl_VXP_rod,d2_VXP_rod 

897  complex*  16  VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 

898  complex*16  Al_rod31_rod,Cl_rod,lame_rod,shear_rod 

899 

900  C  *************************************♦***********♦*♦♦♦♦!!:***♦*♦♦**♦ 

901 

902  C  DEFINITIONS  FOR  COMMON  BLOCK  /OFLUID/ 

903 

904  complex*  16  OFSC,dl_OFSC31_OF 

905 

906  common  /OFLUID/  OFSC,dl_OFSC,M_OF 

907 

908  C  ****************************************************************** 

909 

910 

911  C  ********************************************♦*********!(!*:(!♦****♦**♦ 

912 

9 13  C  DEFINITIONS  FOR  COMMON  BLOCK  /IFLUID/ 

914 

9 15  common  /IFLUID/  IFSC,dl_IFSC,D_IF 

916 

917  complex*  16  IFSC,dl_IFSC,D_IF 

918 
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919  C  *  sj:  :j:  5|:  5^  *********  5i:  ♦♦**♦***  :|c  *  s|:  ***  :jc  *  3|:  :t;  :|c  H:  Hi  :i!  ♦  sfe  *******  * 

920 

921 

922  C  INTERNAL  VARIABLES 

923 

924  integer  size.iflag 

925  complex*16  sinrc2inv(13,13),workrc2(13,26) 

926 

927  size  =13 

928  iflag  =  0 

929 

930 

931  CALL  MIN V (smrc2,sinrc2inv,workrc2,size,iflag) 

932 

933 

934 

935  C  RADIAL  EXCITATION  exctype  =  1 

936  C  AXIAL  EXCITATION  exctype  =  0 

937 

938  if  (exctype  .eq.  1)  then 

939  A1_C2  =  -smrc2inv(l,  1) 

940  A2_C2  =  -smrc2inv(2, 1 ) 

941  B  1_C2  =  -smrc2inv(3,l) 

942  B2_C2  =  -snirc2inv(4,l) 

943  C  1_C2  =  -snirc2inv(5, 1 ) 

944  C2_C2  = -snirc2inv(6,l) 

945  A1_C1  = -smrc2inv(7,l) 

946  A2_C1  =-smrc2inv(8,l) 

947  B1_C1  =  -smrc2inv(9,l) 

948  B2_C1  =-smrc2inv(10,l) 

949  C1_C1  = -smrc2inv(ll,l) 

950  C2_C1  =  -snirc2inv(12,l) 

951  D_IF  =  -snn:c2inv(13,l) 

952  M_OF=(Al_C2*dl_SP_CY2_cl  + 

953  1  A2_C2*dl_SP_CY2_c2  + 

954  1  Bl_C2*n/c*VXP_CY2_cl + 

955  1  B2_C2*n/c*VXP_CY2_c2  + 

956  1  Cl_C2*(0.0D0,1.0D0)*k*VRTP_CY2_cl  + 

957  1  C2_C2*(0.0D0,1.0D0)*k*VRTP_CY2_c2)/dl_OFSC 

958 

959  elseif  (exctype  .eq.  0)  then 

960  A1_C2  =  -snirc2inv(l,2) 

961  A2_C2  =  -smrc2inv(2,2) 

962  Bl_C2  =  -smrc2inv(3,2) 

963  B2_C2  =  -snirc2inv(4,2) 

964  Cl  _C2  =  -smrc2inv(5,2) 
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965  C2_C2  =  -sinrc2mv(6,2) 

966  A1_C1  =  -snirc2inv(7,2) 

967  A2_C1  =  -snirc2mv(8,2) 

968  B1_C1  =  -smrc2inv(9,2) 

969  B2_C1  =  -smrc2mv(10,2) 

970  C1_C1  =  -smrc2inv(ll,2) 

97 1  C2_C  1  =  -smrc2inv(  1 2,2) 

972  D_IF  =  -siiirc2inv(  1 3,2) 

973  M_OF=(Al_C2*dl_SP_CY2_cl  + 

974  1  A2_C2*dl_SP_CY2_c2  + 

975  1  Bl_C2*n/c*VXP_CY2_cl  + 

976  1  B2_C2*n/c*VXP_CY2_c2  + 

977  1  Cl_C2*(0.0IX),1.0D0)*k*VRTP_CY2_cl  + 

978  1  C2_C2*(0.0D0,1.0D0)*k*VRTP_CY2_c2)/dl_OFSC 

979 

980  endif 

981 

982 

983 

984  return 

985  end 

986 

987 

988 

989 

990 

991  SUBROUTINE  OUTPUT_RC2(tft,n,k,r,value) 

992 

993  C  EXTERNAL  VARIABLES 

994 

995  integer  n,tft 

996  real*8  k,r,zero 

997  complex*  16  value 

998 

999  C  DEFINITIONS  FOR  COMMON  BLOCK  /CYLINDERl/ 

1000 

1001  complex*16  SP_CYl_al,dl_SP_CYl_al,d2_SP_CYl_al 

1002  complex*  16  SP_CYl_a2,dl_SP_CYl_a2,d2_SP_CYl_a2 

1003  omplex*16  SP_CYl_bl,dl_SP_CYl_bl.d2_SP_CYl_bl 

1004  complex*16  SP_CYl_b2,dl_SP_CYl_b2,d2_SP_CYl_b2 

1005 

1006  complex*16  VXP_CYl_al,dl_VXP_CYl_al,d2_VXP_CYl_al 

1007  complex*16  VXP_CYl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2 

1008  complex*16  VXP_CYl_bl,dl_VXP_CYl_bl,d2_VXP_CYl_bl 

1009  complex*16  VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2 

1010 
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1011  complex*16  VRTP_CYl_al,dl_VRTP_CYl_al,d2_VRTP_CYl_al 

1012  complex*16  VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VRTP_CYl_a2 

1013  complex*16  VRTP_CYl_bl,dl_VRTP_CYl_bl,d2_VRTP_CYl_bl 

1014  compiex*16  VRTP_CYl_b2,dl_VRTP_CYl_b2,d2_VRTP_CYl_b2 

1015 

1016  complex*16  lame_cl,shear_cl,cl_cl,ct_cl 

1017  complex*16  A1_C1,A2_C1,B1_C1,B2_C1,C1_C1,C2_C1 

1018 

1019  common  /CYLINDERl/  SP_CYl_al,dl_SP_CYl_al,d2_SP_CYl_al, 

1020  1  SP_CYl_a2,dl_SP_CYl_a242_SP_CYl_a2, 

1021  1  SP_CYl_bl,dl_SP_CYl_bl,d2_SP_CYl_bl, 

1022  1  SP_CYl_b2,dl_SP_CYl_b2,d2_SP_CYl_b2, 

1023  1  VXP_CYl_al,dl_VXP_CYl_al,d2_VXP_CYl_al, 

1024  1  VXP_CYl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2, 

1025  1  VXP_CYl_bl,dl_VXP_CYl_bl,d2_VXP_CYl_bl, 

1026  1  VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2, 

1027  1  VRTP_CYl_al,dl_VRTP_CYl_al,d2_VRTP_CYl_al, 

1028  1  VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VRTP_CYl_a2, 

1029  1  VRTP_CYl_bl,dl_VRTP_CYl_bl,d2_VRTP_CYl_bl, 

1030  1  VRTP_CYl_b2,dl_VRTP_CYl_b2,d2_VRTP_CYl_b2, 

1031  1  lame_cl,shear_cl,cl_cl,ct_cl, 

1032  1  A1_C1,A2_C131_C132_C1,C1_C1,C2_C1 

1033 

1034  C  ****************************************************************** 

1035 

1036 

1037  C  DEFINITIONS  FOR  COMMON  BLOCK  /CYLINDER2/ 

1038 

1039  complex*16  SP_CY2_bl41_SP_CY2_bl,d2_SP_CY2_bl 

1040  complex*16  SP_CY2_b241_SP_CY2_b2,d2_SP_CY2_b2 

1041  complex*16  SP_CY2_cl41_SP_CY2_cl,d2_SP_CY2_cl 

1042  complex*  16  SP_CY2_c241_SP_CY2_c2,d2_SP_CY2_c2 

1043 

1044  complex*16  VXP_CY2_bl41_VXP_CY2_bl,d2_VXP_CY2_bl 

1045  complex*16  VXP_CY2_b241_VXP_CY2_b2,d2_VXP_CY2_b2 

1046  complex*16  VXP_CY2_cl41_VXP_CY2_cl,d2_VXP_CY2_cl 

1047  complex*16  VXP_CY2_c2,dl_VXP_CY2_c2,d2_VXP_CY2_c2 

1048 

1049  complex*16  VRTP_CY2_bl41_VRTP_CY2_bl42_VRTP_CY2_bl 

1050  complex*  16  VRTP_CY2_b241_VRTP_CY2_b2,d2_VRTP_CY2_b2 

1051  complex*16  VRTP_CY2_cl41_VRTP_CY2_cl42_VRTP_CY2_cl 

1052  complex*16  VRTP_CY2_c241_VRTP_CY2_c2,d2_VRTP_CY2_c2 

1053 

1 054  complex*  1 6  Iame_c2,shear_c2,cl_c2,ct_c2 

1055 

1056  complex*16  A1_C2,A2_C2,B1_C2,B2_C2,C1_C2,C2_C2 
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1057 

1058 

1059  common /CYLINDER2/SP_CY2_bl,dl_SP_CY2_bl,d2_SP_CY2_bl,  . 

1060  1  SP_CY2_b2,dl_SP_CY2_b2,d2_SP_CY2_b2, 

1061  1  SP_CY2_cl,dl_SP_CY2_cl,d2_SP_CY2_cl, 

1062  1  SP_CY2_c2,dl_SP_CY2_c2,d2_SP_CY2_c2, 

1063  1  VXP_CY2_bl,dl_VXP_CY2_bl,d2_VXP_CY2_bl, 

1064  1  VXP_CY2_b2,dl_VXP_CY2_b2,d2_VXP_CY2_b2, 

1065  1  VXP_CY2_cl,dl_VXP_CY2_cl,d2_VXP_CY2_cl, 

1066  1  VXP_CY2_c2,dl_VXP_CY2_c2,d2_VXP_CY2_c2, 

1067  1  VRTP_CY2_bl41_VRTP_CY2_bl,d2_VRTP_CY2_bl, 

1068  1  VRTP_CY2_b2,dl_VRTP_CY2_b2,d2_VRTP_CY2_b2, 

1069  1  VRTP_CY2_cl,dl_VRTP_CY2_cl,d2_VRTP_CY2_cl, 

1070  1  VRTP_CY2_c2,dl_VRTP_CY2_c2,d2_VRTP_CY2_c2, 

1071  1  Iame_c2,shear_c2,cl_c2,ct_c2, 

1072  1  A1_C2,A2_C2,B1_C232_C2,C1_C2,C2_C2 

1073 

1074  C  4: 3i5:!:H!5j:***5i!****5|c!|::jc*:i:*3*:***:J:**:|c**4:****5}c***:*:  :*:**************** 

1075 

1076 

1077  C  DEFINITIONS  FOR  COMMON  BLOCK  /ROD/ 

1078 

1079  common  /ROD/  SP_rod,dl_SP_rod,d2_SP_rod,VXP_rod, 

1080  ldl_VXP_rod,d2_VXP_rod,VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 

1081  l,Al_rod,Bl_rod,Cl_rod,lame_rod,shear_rod 

1082 

1083 

1084  complex*  16  SP_rod,dl_SP_rod,d2_SP_rod 

1085  complex*  16  VXP_rod,dl_VXP_rod,d2_VXP_rod 

1086  complex*  16  VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 

1 087  complex*  1 6  A  l_rod,B  l_rod,C  l_rod,lame_rod,shear_rod 

1088 

1089  C  :f:  4: 9ic  9je  if:  ^ 9|e  4: *  aH  sf:  9K  sfe  *  *  9ic  *  3):  ale  Nc  sK  3^  4: 3^  4: 9K  sK  :1c  4:  He  sf:  ajc  4:  4:  ^  sic  *  * 

1090 

1091  C  DEFINITIONS  FOR  COMMON  BLOCK  /OFLUID/ 

1092 

1093  complex*  16  OFSC,dl_OFSC,M_OF 

1094 

1095  common  /OFLUID/  0FSC,dl_0FSCJ4_0F 

1096 

1097  C  He  H:  He  ale  He  3ie  He  *  31:  *  sic  a|: 9):  ^  4c  3ic  aH  He  He  3is  H:  ale  3):  H:  3lc  af:  :)c 4: 3|c  H:  He  af:  aie  He  3^  3^  3):  9^  9);  die  ^ 4;  3|s  a|c  al:  H:  3K  He  He  H:  af:  He  H:  He  He  :1c :1c  He  aic  aK  He 

1098 

1099 

1100  C  H:  He  He  H:  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  3}c  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He 

1101 

1102  C  DEFINITIONS  FOR  COMMON  BLOCK  /IFLUID/ 
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1103 

1104  common /IFLUID/IFSC,dl_IFSC,D_IF 

1105 

1106  complex*16  IFSC,dl_IFSC,D_IF 

1107 

1108  C 

1109 

1110 

nil  C  INTERNAL  VARIABLES 
1112 

1113  integer  n2 

1114  real*8  k2,r2,no,pll,pl2 

1115  complex*  1 6  dpp,exx,err,Sn:,Sxx,ett,uc,vc,wc 

1116  complex*16  A1C2,A2C2,B1C2,B2C2,C1C2,C2C2 

1117  complex*16L2GCl,L2GC2 

1118 

1119  n2  =  n**2 

1120  r2  =  r**2 

1121  k2  =  k**2 

1122 

1123  zero  =  LOOOD-30 

1124  no  =1.46000 

1125  pll  =0.12600 

1126  pl2  =0.27000 

1127  L2GC 1  =  lame_c 1  +  2.000*shear_c  1 

1128  L2GC2  =  lame_c2  +  2.000*shear_c2 

1129 

1130 


1131  C  RADIAL  STRESS/(Pr  or  Px) 

tft  =  0 

1132  C  LONGITUOINAL  STRESS 

tft=l 

1133  C  AXIAL  OISPLACEMENT 

tft  =  2 

1134  C  THETA  OISPLACEMENT 

tft  =  3 

1135  C  RAOIAL  OISPLACEMENT 

tft  =  4 

1136  C  LONGITUOINAL  STRAIN 

ell/(Pr  orPx) 

tft  =  5 

1137  C  THETA  STRAIN 

ett/(Pr  or  Px) 

tft  =  6 

1138  C  RAOIAL  STRAIN 

err/(Pr  or  Px) 

tft  =  7 

1139  C 

tft  =  8 

1140  C  OPnC  exx=0@k=0 

((dp/p)(r))/(ProrPx) 

tft  =  9 

1141  C  OPTIC  exx=const@k=0 

((dp/p)(r))/(ProrPx) 

tft  =10 

1142 

1143 

1144 

1145 

1146 

1147 

1 148  if  (tft  .eq.  0)  then 
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1149 

1 150  A1C2  =  Al_C2*(L2GC2*d2_SP_CY2_bl  +  lame_c2* 

1151  1  dl_SP_CY2_bl/r-lame_c2*SP_CY2_bl*(n2/ 

1152  1  r2  +  k2)) 

1153 

1 154  A2C2  =  A2_C2*(L2GC2*d2_SP_CY2_b2  +  lame_c2* 

1155  1  dl_SP_CY2_b2/r  -  lame_c2*  SP_CY2_b2*(n2/ 

1156  1  r2  +  k2)) 

1157 

1158  BlC2  =  Bl_C2*-2.0D0*shear_c2*n/r**2*(VXP_CY2_bl - 

1159  1  r*dl_VXP_CY2_bl) 

1160 

1161  B2C2  =  B2_C2*-2.0D0*shear_c2*n/r**2*(VXP_CY2_b2  - 

1162  1  r*dl_VXP_CY2_b2) 

1163 

1164  C1C2  =  (0.0D0,1.0D0)*Cl_C2*2.0D0*shear_c2*k*dl_VRTP_CY2_bl 

1165 

1166  C2C2  =  (O.ODO,1.0DO)*C2_C2*2.0DO*shear_c2*k*dl_VRTP_CY2_b2 

1167 

1168  Srr  =  A1C2  +  A2C2  +  B1C2  +  B2C2  +  C1C2  +  C2C2 

1169 

1170  values  Srr 

1171 

1172 

1173  C  LONGITUDINAL  STRESS  USING  (EQ  153) 

1174  elseif(tft  .eq.  1)  then 

1175 

1176  A1C2  =  Al_C2*(lame_c2*(d2_SP_CY2_bl  +  dl_SP_CY2_bl/r) 

1177  1  -  SP_CY2_bl*(laine_c2*n2/r2  +  k2*(lame_c2 

1178  1  +  2.0D0*shear_c2))) 

1179 

1180  A2C2  =  A2_C2*(lame_c2*(d2_SP_CY2_b2  +  dl_SP_CY2_b2/r) 

1181  1  -  SP_CY2_b2*(lame_c2*n2/r2  +  k2*(lame_c2 

1182  1  +  2.0D0*shear_c2))) 

1183 

1184  C1C2  =  C1_C2*((0.0D0,-1 .0D0)*k*(dl_VRTP_CY2_bl  + 

1185  1  VRTP_CY2_bl*(n+ 1.0D0)/r))*2.0D0*shear_c2 

1186 

1187  C2C2  =  C2_C2*((0.0D0,-1.0D0)*k*(dl_VRTP_CY2_b2  + 

1188  1  VRTP_CY2_b2*(n  +  L0D0)/r))*2.0D0*shear_c2 

1189 

1190  Sxx  =  AlC2  +  A2C2  +  ClC2  +  C2C2 

1191 

1192  value  =  Sxx 

1193 

1194 
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1195  C  AXIAL  DISPLACEMENT  USING  (EQ  149) 

1196  elseif(tft  .eq.  2)  then 

1197 

1198  A1C2  =  Al_C2*(0.0DO,1.0D0)*k*SP_CY2_bl 

1199 

1200  A2C2  =  A2_C2*(0.0D0, 1 .0D0)*k*SP_CY2_b2 

1201 

1202  C1C2  =  Cl_C2*(-dl_VRTP_CY2_bl  -  VRTP_CY2_bl* 

1203  1  (n+1.0D0)/r) 

1204 

1205  C2C2  =  C2_C2*(-dl_VRTP_CY2_b2  -  VRTP_CY2_b2* 

1206  1  (n+1.0D0)/r) 

1207 

1208  wc  =  AlC2  +  A2C2  +  ClC2  +  C2C2 

1209 

1210  value  =  wc 

1211 

1212  C  THETA  DISPLACEMENT  USE4G  (EQ  150) 

1213  elseif(tft  .eq.  3)  then 

1214 

1215 

1216  AlC2  =  Al_C2*-SP_CY2_bl*n/r 

1217 

1218  A2C2  =  A2_C2*-SP_CY2_b2*n/r 

1219 

1220  B 1C2  =  -B  I_C2*dl_VXP_CY2_bl 

1221 

1222  B2C2  =  -B2_C2*dl_VXP_CY2_b2 

1223 

1224  C1C2  =  Cl_C2*(0.0D0,1.0D0)*k*VRTP_CY2_bl 

1225 

1226  C2C2  =  C2_C2*(0.0D0,1.0D0)*k*VRTP_CY2_b2 

1227 

1228  VC  =  A1C2  +  A2C2  +  B 1C2  +  B2C2  +  C1C2  +  C2C2 

1229 

1230  value  =  vc 

1231 

1232  C  RADIAL  DISPLACEMENT  USING  (EQ  148) 

1233  elseif(tft  .eq.  4)  then 

1234 

1235  AlC2  =  Al_C2*dl_SP_CY2_bl 

1236 

1237  A2C2  =  A2_C2*dl_SP_CY2_b2 

1238 

1239  B 1C2  =  B  l_C2*VXP_CY2_bl*n/r 

1240 
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1241  B2C2  =  B2_C2*VXP_CY2_b2*n/r 

1242 

1243  C1C2  =  Cl_C2*(0.0D0,1.0D0)*k*VRTP_CY2_bl 

1244 

1245  C2C2  =  C2_C2*(0.0D0, 1 .0D0)*k*  VRTP_CY2_b2 

1246 

1247  uc  =  A1C2  +  A2C2  +  B 1C2  +  B2C2  +  C1C2  +  C2C2 

1248 

1249  value  =  uc 

1250 

1251  C  LONGITUDINAL  STRAIN  USING  (EQ  147) 

1252  elseif(tft  .eq.  5)  then 

1253 

1254  A1C2  =  -Al_C2*k2*SP_CY2_bl 

1255 

1256  A2C2  =  -A2_C2*k2_SP_CY2_b2 

1257 

1258  C1C2  =  Cl_C2*(0.0D0,-1.0D0)*k*(dl_VRTP_CY2_bl  + 

1259  1  VRTP_CY2_bl*(n  +  1.0D0)/r) 

1260 

1261  C2C2  =  C2_C2*(0.0D0,-1.0D0)*k*(dl_VRTP_CY2_b2  + 

1262  1  VRTP_CY2_b2*(n+1.0D0)/r) 

1263 

1264  exx  =  A1C2  + A2C2  +  C1C2  +  C2C2 

1265 

1266  if  (zabs(exx)  .It.  dabs(zero))  then 

1267  value  =  zero 

1268  endif 

1269 

1270  value  =  exx 

1271 

1272  C  THETA  STRAIN  USING  (EQ  145) 

1273  elseif(tft  .eq.  6)  then 

1274 

1275  A1C2  =  Al_C2*(dl_SP_CY2_bl/r  -  SP_CY2_bl*n2/r2) 

1276 

1277  A2C2  =  A2_C2*(dl_SP_CY2_b2/r  -  SP_CY2_b2*n2/r2) 

1278 

1279  B 1C2  =  B  l_C2*(-dl_VXP_CY2_bl*n/r  +  VXP_CY2_bl*n/r2) 

1280 

128 1  B2C2  =  B2_C2*(-dl_VXP_CY2_b2*n/r  +  VXP_CY2_b2*n/r2) 

1282 

1283  C1C2  =  Cl_C2*(0.0D0,1.0D0)*k*VRTP_CY2_bl*(n  +  1.0D0)/r 

1284 

1285  C2C2  =  C2_C2*(O.ODO,1.0DO)*k*VRTP_CY2_b2*(n  +  1.0D0)/r 

1286 
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1287  ett  =A1C2  +  A2C2  +  B1C2  +  B2C2  +  C1C2  +  C2C2 

1288 

1289  if  (zabs(ett)  .It.  dabs(zero))  then 

1290  value  =  zero 

1291  endif 

1292 

1293  value  =  ett 

1294 

1295  C  RADIAL  STRAIN  USING  (eq  143) 

1296  elseif(tft  .eq.  7)  then 

1297 

1298  A1C2  =  Al_C2*d2_SP_CY2_bl 

1299 

1300  A2C2  =  A2_C2*d2_SP_CY2_b2 

1301 

1302  B 1C2  =  B  l_C2*(dl_VXP_CY2_bl  -  VXP_CY2_bl/r)*n/r 

1303 

1304  B2C2  =  B2_C2*(dl_VXP_CY2_b2  -  VXP_CY2_b2/r)*n/r 

1305 

1306  C1C2  =  Cl_C2*(O.ODO,1.0DO)*k*dl_VRTP_CY2_bl 

1307 

1308  C2C2  =  C2_C2*(0.0D0,1 .0D0)*k*dl_VRTP_CY2_b2 

1309 

1310  err  =  A1C2  + A2C2  +  B1C2  +  B2C2  +  C1C2  +  C2C2 

1311 

1312  if  (zabs(err)  .It  dabs(zero))  then 

1313  values  zero 

1314  endif 

1315 

1316  values  err 

1317 

1318  C  UNUSED  AT  PRESENT 

1319  elseif(tft  .eq.  8)  then 

1320  value  sl.ODO 

1321 

1322  C  OPTIC  dP/P/uPa  USING  (EQ  147  &  143) 

1323  Cexx  =  0@ksO 

1324  elseif(tft  .eq.  9)  then 

1325 

1326  AlC2s-Al_C2*k2*SP_CY2_bl 

1327 

1328  A2C2  s  -A2_C2*k2_SP_CY2_b2 

1329 

1330  C1C2  =  C1_C2*(0.0D0,-1 .0D0)*k*(dl_VRTP_CY2_bl  + 

1331  1  VRTP_CY2_bl*(n+1.0D0)/r) 

1332 
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1333  C2C2  =  C2_C2*(0.0D0,- 1 .0D0)*k*(dl_VRTP_CY2_b2  + 

1334  1  VRTP_CY2_b2*(n+1.0D0)/r) 

1335 

1336  exx  =A1C2  +  A2C2  +  C1C2  +  C2C2 

1337 

1338  if  (zabs(exx)  .It.  dabs(zero))  then 

1339  exx  =  zero 

1340  endif 

1341 

1342  AlC2  =  Al_C2*d2_SP_CY2_bl 

1343 

1344  A2C2  =  A2_C2*d2_SP_CY2_b2 

1345 

1346  B 1C2  =  B  l_C2*(dl_VXP_CY2_bl  -  VXP_CY2_bl/r)*n/r 

1347 

1348  B2C2  =  B2_C2*(dl_VXP_CY2_b2  -  VXP_CY2_b2/r)*n/r 

1349 

1350  C1C2  =  Cl_C2*(O.ODO,1.0DO)*k*dl_VRTP_CY2_bl 

1351 

1352  C2C2  =  C2_C2*(0.0D0,1 .0D0)*k*dl_VRTP_CY2_b2 

1353 

1354  err  =  A1C2  +  A2C2  +  B 1C2  +  B2C2  +  C1C2  +  C2C2 

1355 

1356  if  (zabs(err)  .It.  dabs(zero))  then 

1357  err  =  zero 

1358  endif 

1359 

1360  dpp  =  exx  -  (no**2/2.0D0)*((pl  l+pl2)*err  +  pl2*exx) 

1361 

1362  value  =  dpp 

1363 

1364  C  OPTIC  dp/p/uPa  USING  (EQ  145  &  143) 

1365  C  exx  =  constant  @  k  =  0 

1366  elseif(tfl  .eq.  10)  then 

1367 

1368  A1C2  =  Al_C2*(dl_SP_CY2_bl/r  -  SP_CY2_bl*n2/r2) 

1369 

1370  A2C2  =  A2_C2*(dl_SP_CY2_b2/r  -  SP_CY2_b2*n2/r2) 

1371 

1372  B1C2  =  Bl_C2*(-dl_VXP_CY2_bl*n/r  +  VXP_CY2_bl*n/r2) 

1373 

1374  B2C2  =  B2_C2*(-dl_VXP_CY2_b2*n/r  +  VXP_CY2_b2*n/r2) 

1375 

1376  C1C2  =  Cl_C2*(0.0D0,1.0D0)*k*VRTP_CY2_bl*(n  +  1.0DO)/r 

1377 

1378  C2C2  =  C2_C2*(0.0D0,1 .0D0)*k*VRTP_CY2_b2*(n  +  1 .0D0)/r 
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1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 


ett  =  A1C2  +  A2C2  +  B 1C2  +  B2C2  +  C1C2  +  C2C2 

if  (zabs(ett)  .It.  dabs(zero))  then 
value  =  zero 
endif 

A1C2  =  Al_C2*d2_SP_CY2_bl 

A2C2  =  A2_C2*d2_SP_CY2_b2 

B1C2  =  Bl_C2*(dl_VXP_CY2_bl  -  VXP_CY2_bl/r)*n/r 

B2C2  =  B2_C2*(dl_VXP_CY2_b2  -  VXP_CY2_b2/r)*n/r 

C1C2  =  Cl_C2*(0.0D0,1.0D0)*k*dl_VRTP_CY2_bl 

C2C2  =  C2_C2*(0.0D0,1.0D0)*k*dl_VRTP_CY2_b2 

err  =  A1C2  +  A2C2  +  B 1C2  +  B2C2  +  C1C2  +  C2C2 

if  (zabs(err)  .It.  dabs(zero))  then 
err  =  zero 
endif 

exx  =  -(lame_rod/(lame_rod  +  2.0D0  *  shear_rod))*(ett  +  err) 
dpp  =  exx  -  (no**2/2.0D0)*((pll+pl2)*err  +  pl2*exx) 
value  =  dpp 

endif 


return 

end 
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flmds.f  Sat  Jun  10  14:41 :58  1995 

J  Q  *s|!N!******!|!*****H!*!|!***!)!*****!(t********#*^sl::)!!(:*:(!**!)::):****s|:**#:te:(!:(!!(:**:(!*:(!*s|e**!(! 

2  C 

3  C  subprogram  “fluids.f  ’ 

4  C 

5  C  This  subprogram  was  written  and  developed  by  Mark  S.  Peloquin 

6  C 

7  C  at  NUWCDETNLON  6/10/95.  As  of  6/10/95,  there  are  no  known  bugs. 

8  C 

9  C  Please  notify  the  author  if  bugs  are  found  (203)  440-5433. 

10  C 

11  C  :|c  ij:  He  *  :|c  *  He  ***♦♦  Ji:****  ♦*♦♦♦♦***  **♦♦♦*♦*♦♦  5*!  **  Jic  *  sK  5ic  ********  **  ******  :|c  ***♦  * 

12 

13 

14  SUBROUTINE  IFL_POT(n,r,k,Om,ci) 

15 

16  C  EXTERNAL  VARIABLES 

17 

18  integer  n 

19  real*8  r,k,Om,ci 

20 

21  (]]j  *********************************************************************** 

22 

23  C  DEFINITIONS  FOR  COMMON  BLOCK  /IFLUID/ 

24 

25  complex*16IFSC,dl_IFSC,D_IF 

26 

27  common  /IFLUID/  IFSC,dl_IFSC,D_IF 

28 

29 

30  C *********************************************************************** 

31 

32  double  complex  cbessj,dlcbessj 

33 

34 

35  C  INTERNAL  VARIABLES 

36 

37  complex*  16  gl,aig 

38 

39  arg  =  DCMPLX(((Om/ci)**2  -  k**2),  O.ODO) 

40  gl  =zsqrt(arg) 

41 

42  dl_IFSC  =  dlcbessj(n,gl,r) 

43  IFSC=  cbessj(n,gl,r) 

44 
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45  return 

46  end 

47 

48 

49 

50 

51 

52  SUBROUTINE  OFL_POT(n,r,k,Om,co) 

53 

54  integer  n 

55  real*8  r,k,Om,co 

56 

57  C  ********************************************!('**H:***!)!*****>|!*S|!!(!*S|!*****St!** 

58 

59  C  DEFINITIONS  FOR  COMMON  BLOCK  /OFLUID/ 

60 

61  common  /OFLUID/  OFSC,dl_OFSC,M_OF 

62 

63  complex*16  OFSC,dl_OFSC,M_OF 

64 

65  C  *********************************************************************** 

66 

67  complex*  16  g2,f2 

68  double  complex  cbesshl,dlcbesshl,cbessk,dlcbessk 

69 

70  if  (dabs(k)  .le.  dabs(Om/co))  then 

71 

72  g2  =  dsqrt((Om/co)**2  -  k**2) 

73  dl_OFSC  =  dlcbesshl(n,g2,r) 

74  OFSC=  cbesshl(n,g2,r) 

75 

76  else 

77 

78  f2  =  dsqrt(k**2  -  (Om/co)**2) 

79  d  l_OFSC  =  d  1  cbessk(n,f2,r) 

80  OFSC  =  cbessk(n,f2,r) 

81 

82  endif 

83 

84  return 

85  end 

86 

87 

88 

89 

90 
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91  SUBROUTINE  OUTPUT_IF(tft,n,k,r,value,Om,ri) 

92 

93  C  EXTERNAL  VARIABLES 

94 

95  integer  n,tft 

96  real*8  k,r,Om,ri 

97  complex*  1 6  value 

98  C  ***********************************5j:5t:5j:**3»:jJ::lc**:iC5i:5i:**H:**H:*H:*:i:************^ 

99 

100  C  DEFINITIONS  FOR  COMMON  BLOCK /IFLUID/ 

101 

102  complex*  16  IFSC,dl_IFSC,D_IF 

103 

104  common /IFLUID/ IFSC,dl_IFSC,D_IF 

105 

106 

107  C  ******************************************************5|:*************** 

108 

109  C  INTERNAL  VARIABLES 

no 

111  complex*  16  pi,vui 

112 

113  C  OUTER  FLUID  PRESSURE  TRANSFER  FUNCTION  USING  (EQ  F.14) 

114  if  (tft  .eq.  0)then 

115 

116  pi  =  Om**2*ri*D_IF*IFSC 

117 

118  value  =  pi 

119 

120  C  OUTER  FLUID  VELOCITY  USING  (EQ  R16) 

121  elseif(tft  .eq.  8)then 

122 

123  vui  =  (0.0D0,-1.0D0)*Om*D_IF*dl_IFSC 

124 

125  value  =  vui 

126 

127  endif 

128 

129  return 

130  end 

131 

132 

133 


129 


TD  11,065 


134  SUBROUTINE  OUTPUT_OF(tft,n,k,r,value,Om,ro) 

135 

136  C  EXTERNAL  VARIABLES 

137 

138  integer  n,tft 

139  real*8  k,r,Om,ro 

140  complex*  16  value 

141  C  **************************** ***=t:=t:************5|!***s|!*****!|::J:**********=|!*:|! 

142 

143  C  DEFINITIONS  FOR  COMMON  BLOCK  /OFLUID/ 

144 

145  common  /OFLUID/  OFSC,dl_OFSC,M_OF 

146 

147  complex*16  OFSC,dl_OFSC,M_OF 

148 

149  C  *********************************************************** ***^t******* 

150 

151  C  INTERNAL  VARIABLES 

152 

153  complex*  1 6  ps,vws 

154 

155  C  OUTER  FLUID  PRESSURE  TRANSFER  FUNCTION  USING  (EQ  E7) 

156  if  (tft  .eq.  0)then 

157 

158  ps  =  Om**2*ro*M_OF*OFSC 

159 

160  value  =  ps 

161 

162  C  OUTER  FLUID  VELOCITY  USING  (EQ  R8a) 

163  elseif(tft  .eq.  8)then 

164 

165  vws  =  (O.ODO,-1.0DO)*Om*M_OF*dl_OFSC 

166 

167  value  =  vws 

168 

169  endif 

170 

171  return 

172  end 

173 

174 

175 
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2  Q 

2  C 

3  C  subprogram  “smcl.f’ 

4  C 

5  C  This  subprogram  was  written  and  developed  by  Mark  S.  Peloquin 

6  C 

7  C  at  NUWCDETNLON  6/10/95.  As  of  6/10/95,  there  are  no  known  bugs. 

8  C 

9  C  Please  notify  the  author  if  bugs  are  found  (203)  440-5433. 

10  C 

11  C 

12 

13 

14  SUBROUTINE  SYS_MATRIX_Cl(n,k,ao_lcyl,bo_cl, 

15  10m,ro,co,ri,ci,smcl) 

16 

17  C  EXTERNAL  VARIABLES 

18 

19  integer  n 

20  real*8  k,ao_lcyl,bo_cl,Om,ro,co4i,ci 

21  complex*16  smcl(7,7) 

22 

23  C  DEFINITIONS  FOR  COMMON  BLOCK  /CYLINDERl/ 

24 

25  complex*16  SP_CYl_al,dl_SP_CYl_al,d2_SP_CYl_al 

26  complex*16  SP_CYl_a2,dl_SP_CYl_a2,d2_SP_CYl_a2 

27  complex*16  SP_CYl_bl41_SP_CYl_bl42_SP_CYl_bl 

28  complex*16  SP_CYl_b2,dl_SP_CYl_b2,d2_SP_CYl_b2 

29 

30  complex*16  VXP_CYl_al41_VXP_CYl_al,d2_VXP_CYl_al 

3 1  complex*16  VXP_CYl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2 

32  complex*16  VXP_CYl_bl41_VXP_CYl_bl,d2_VXP_CYl_bl 

33  complex*16  VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2 

34 

35  complex*16VRTP_CYl_al,dl_VRTP_CYl_al,d2_VRTP_CYl_al 

36  complex*16  VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VRTP_CYl_a2 

37  complex*16  VRTP_CYl_bl41_VRTP_CYl_bl,d2_VRTP_CYl_bl 

38  complex*16  VRTP_CYl_b2,dl_VRTP_CYl_b2,d2_VRTP_CYl_b2 

39 

40  complex*  1 6  lame_c  1  ,shear_c  1  ,cl_c  1  ,ct_c  1 

41 

42  complex*16  A1_C1,A2_C1,B1_C1,B2_C1,C1_C1,C2_C1 

43 

44  common  /CYLINDERl/  SP_CYl_al,dl_SP_CYl_al,d2_SP_CYl_al, 

45  1  SP_CYl_a2,dl_SP_CYl_a2,d2_SP_CYl_a2, 

46  1  SP_CYl_bl41_SP_CYl_bLd2_SP_CYl_bl, 
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47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 


1  SP_CYl_b2,dl_SP_CYl_b2,d2_SP_CYl_b2, 

1  VXP_CYl_al  41_VXP_CYl_al  ,d2_VXP_CYl_al , 

1  VXP_CYl_a241_VXP_CYl_a2,d2_VXP_CYl_a2, 

1  VXP_CYl_bl41_VXP_CYl_bl,d2_VXP_CYl_bl, 

1  VXP_CYl_b241_VXP_CYl_b242_VXP_CYl_b2, 

1  VRTP_CYl_al41_VRTP_CYl_al,d2_VRTP_CYl_al, 

1  VRTP_CYl_a241_VRTP_CYl_a242_VRTP_CYl_a2, 

1  VRTP_CYl_bl41_VRTP_CYl_bl42_VRTP_CYl_bl, 

1  VRTP_CYl_b241_VRTP_CYl_b242_VRTP_CYl_b2, 

1  lame_cl,shear_cl,cl_cl,ct_cl, 

1  A1_C1,A2_C1,B1_C1,B2_C1,C1_C1,C2_C1 


C  DEFINITIONS  FOR  COMMON  BLOCK /OFLUID/ 
common  /OFLUID/  OFSC41_OFSC,M_OF 
complex*  16  OFSC41_OFSC,M_OF 


C  DEFINTTIONS  FOR  COMMON  BLOCK  /IFLUID/ 
common  /IFLUID/  IFSC41_IFSC,D_IF 
complex*16  IFSC41_IFSC,D_IF 


C  INTERNAL  VARIABLES 

complex*  16  L2GC1 
real*8  a,b,b2,k2,a2 
integer  n2 

a  =  ao_lcyl 
b  =  bo_cl 
a2  =  ao_lcyl**2 
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93  b2  =bo_cl**2 

94  n2  =  n**2 

95  k2  =  k**2 

96  L2GC1  =  laine_cl  +  2.0D0  *  shear_cl 

97 

98 

99  C  BOUNDARY  CONDITION  #1  (EQ  113) 

100 

101  smcl(l,l)  =  L2GCl*d2_SP_CYl_bl  +  (lame_cl/bo_cl)* 

102  ldl_SP_CYl_bl  -  laine_cl*SP_CYl_bl*(n2/b2  +  k2)  + 

103  lro*Om**2*OFSC/dl_OFSC*dl_SP_CYl_bl 

104 

105  smcl(l,2)  =  L2GCl*d2_SP_CYl_b2  +  (lame_cl/bo_cl)* 

106  ldl_SP_CYl_b2  -  lame_cl*SP_CYl_b2*(n2/b2  +  k2)  + 

107  lro*Om**2*OFSadl_OFSC*dl_SP_CYl_b2 

108 

109  sincl(l,3)  =  -2.0D0*shea^_cl*n^2♦(VXP_CYl_bl-bo_cl* 

110  ldl_VXP_CYl_bl) + 

1 1 1  ln*ro*Om**2*OFSC*VXP_CYl_bl/(dl_OFSC*b) 

112 

1 1 3  smc  1(1,4)  =  -2.0D0*shear_c  1  *n/b2*(VXP_CYl_b2-bo_c  1  * 

114  ldl_VXP_CYl_b2)  + 

115  ln*ro*Om**2*OFSC*VXP_CYl_b2/(dl_OFSC*b) 

116 

1 17  smcl(l,5)  =  (0.0D0,L0D0)*2.0D0*shear_cl*k*dl_VRTP_CYl_bl 

118  1  +  (O.ODO,1.0DO)*k*ro*Om**2*OFSC*VRTP_CYl_bl/dl_OFSC 

119 

120  smcl(l,6)  =  (O.ODO,LODO)*2.0DO*shear_cl*k*dl_VRTP_CYl_b2 

121  1  +  (O.ODO,1.0DO)*k*ro*Om**2*OFSC*VRTP_CYl_b2/dl_OFSC 

122 

123  smcl(l,7)  =  (0.0D0,0.0D0) 

124 

125 

126 

127  C  BOUNDARY  CONDITION  #2  (EQ  116) 

128 

129  smcl(2,l)  =  (0.0D0,1.0D0)*k*2.0D0*shear_cl*dl_SP_CYl  bl 

130 

131  smcl(2,2)  =  (0.0D0,1.0D0)*k*2.0D0*shear_cl*dl_SP_CYl_b2 

132 

133  smc  1  (2,3)  =  (O.ODO,  1 .0D0)*k*n*shear_c  1  *  VXP_CY  l_b  l/bo_c  1 

134 

135  smc  1  (2,4)  =  (O.ODO,  1 .0D0)*k*n*shear_c  1  *VXP_CY  l_b2/bo  c  1 

136 

137  smcl(2,5)  =  shear_cl*(VRTP_CYl_bl*(n/b2  -  k2  + 

138  1  1.0D0/b2)  -  dl_VRTP_CYl_bl*(n  +  L0D0)/bo_cl  -  d2_VRTP_CYl_bl) 
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139 

140  smcl(2,6)  =  shear_cl*(VRTP_CYl_b2*(n^2  -  k2  + 

141  11 .0D0/b2)  -  dl_VRTP_CYl_b2*(n  +  1 .0D0)/bo_c  1  -  d2_VRTP_CYl_b2) 

142 

143  smcl(2,7)  =  (0.0D0,0.0D0) 

144 

145 

146 

147 

148  C  BOUNDARY  CONDITION  #3  (EQ  120) 

149 

150  smcl(3,l)  =  (shear_cl*2.0D0*n/bo_cl)*((L0D0/bo_cl)* 

151  lSP_CYl_bl  -  dl_SP_CYl_bl) 

152 

153  smcl(3,2)  =  (shear_cl*2.0D0*n/bo_cl)*((1.0D0/bo_cl)* 

154  lSP_CYl_b2  -  dl_SP_CYl_b2) 

155 

156  smcl(3,3)  =  shear_cl*(-d2_VXP_CYl_bl  +  1.0D0^o_cl* 

157  ldl_VXP_CYl_bl-n2/b2*VXP_CYl_bl) 

158 

159  smcl(3,4)  =  shear_cl*(-d2_VXP_CYl_b2  +  1.0D0/bo_cl* 

160  ldl_VXP_CYl_b2  -  n2/b2*VXP_CYl_b2) 

161 

162  smcl(3,5)  =  (O.ODO,1.0DO)*k*shear_cl*{dl_VRTP_CYl_bl 

163  l-VRTP_CYl_bl*(1.0D0  +  n)/bo_cl) 

164 

165  smcl(3,6)  =  (0.0D0,1.0D0)*k*shear_cl*(dl_VRTP_CYl_b2 

166  l-VRTP_CYl_b2*(1.0D0  +  n)/bo_cl) 

167 

168  sincl(3,7)  =  (0.0D0,0.0D0) 

169 

170 

171 

172 

173  C  BOUNDARY  CONDITION  #11  (EQ  224) 

174 

175 

176 

177 

178  smcl(4,l)  =  L2GCl*d2_SP_CYl_al  +  Oame.cl/a)* 

179  ldl_SP_CYl_al  -  lame_c  1  *SP_CYl_al *(n2/a2  +  k2) 

180 

181  smcl(4,2)  =  L2GCl*d2_SP_CYl_a2  +  (lame_cl/a)* 

182  ldl_SP_CYl_a2  -  lame_cl*SP_CYl_a2*(n2/a2  +  k2) 

183 

184  smcl(4,3)  =  -2.0DO*shear_cl*ii/a2*(VXP_CYl_al-a* 
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185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 


ldl_VXP_CYl_al) 

smcl(4,4)  =  -2.0DO*shear_cl*n/a2*(VXP_CYl_a2-a* 
ldl_VXP_CYl_a2) 

smcl(4,5)  =  (O.ODO,1.0DO)*2.0DO*shear_cl*k*dl_VRTP_CYl_al 
smcl(4,6)  =  (0.0D0,1.0D0)*2.0D0*shear_cl*k*dl_VRTP_CYl_a2 
smcl(4,7)  =  +  ii*Om**2*IFSC 

C  BOUNDARY  CONDITION  #12  (EQ  225) 

smcl(5,l)  =  (0.0D0,1.0D0)*k*2.0D0*shear_cl*dl_SP_CYl_al 

smcl(5,2)  =  (O.OD0,1.0DO)*k*2.ODO*shear_cl*dl_SP_CYl_a2 

smcl(5,3)  =  (0.0D0,1.0D0)*k*n*shear_cl*VXP_CYl_al/a 

smcl(5,4)  =  (0.0D0,1.0D0)*k*n*shear_cl*VXP_CYl_a2/a 

smc  1(5,5)  =  shear_cl*(VRTP_CYl_al*((n+1.0D0)/a2  -  k2) 

1-  dl_VRTP_CYl_al*(n+1.0D0)/ao_lcyl  -  d2_VRTP_CYl_al) 

smcl(5,6)  =  shear_cl*(VRTP_CYl_a2*((n+1.0D0)/a2  -  k2) 

1-  dl_VRTP_CYl_a2*(n+1.0D0)/ao_lcyl  -  d2_VRTP_CYl_a2) 

smcl(5,7)  =  (0.0D0,0.0D0) 


C  BOUNDARY  CONDITION  #13  (EQ  226) 


smcl(6,l)  =  (shear_cl*2.0D0*n/a)*((1.0D0/a)* 
lSP_CYl_al  -  dl_SP_CYl_al) 

smcl(6,2)  =  (shear_cl*2.0D0*n/a)*((1.0D0/a)* 
lSP_CYl_a2  -  dl_SP_CYl_a2) 
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231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 


snicl(6,3)  =  shear_cl*(-d2_VXP_CYl_al  +  l.ODO/a* 
ldl_VXP_CYl_al  -  n2/a2*VXP_CYl_al) 

smcl(6,4)  =  shear_cl*(-d2_VXP_CYl_a2  +  l.ODO/a* 
ldl_VXP_CYl_a2  -  n2/a2*VXP_CYl_a2) 

smcl(6,5)  =  (0.0D0,1.0D0)*k*shear_cl*(dl_VRTP_CYl_al 
1-  VRTP_CYl_al*(1.0D0  +  n)/a) 

smcl(6,6)  =  (0.0D0,1.0D0)*k*shear_cl*(dl_VRTP_CYl_a2 
1-  VRTP_CYl_a2*(1.0D0  +  n)/a) 

smcl(6,7)  =  (O.ODO,O.ODO) 


C  BOUNDARY  CONDITION  #14  (EQ  227) 

smcl(7,l)  =  dl_SP_CYl_al 

smcl(7,2)  =  dl_SP_CYl_a2 

smcl(7,3)  =  n/a*VXP_CYl_al 

smcl(7,4)  =  n/a*VXP_CYl_a2 

smcl(7,5)  =  (0.0D0,1.0D0)*k*VRTP_CYl_al 

smcl(7,6)  =  (0.0D0.1.0D0)*k*VRTP_CYl_a2 

smcl(7,7)  =  -dl_IFSC 

C  END  BOUNDARY  CONDITIONS  FOR  MATRIX  “smcl’ 


return 

end 
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ni 

278 

280  SUBROUTINE  ABC_C  l_INVERT(n,exctype,smc  1  ,a,b) 

281 

282  C  EXTERNAL  VARIABLES 

283 

284  integer  n,exctype 

285  real*8  a,b 

286  complex*  1 6  smc  1  (7,7) 

287 


288  C  DEFINITIONS  FOR  COMMON  BLOCK  /CYLINDERl/ 


289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309  1 

310  1 

311  1 

312  1 

313  1 

314  1 

315  1 

316  1 

317  1 

318  1 

319  1 

320  1 

321  1 

322 


complex*16SP_CYl_al,dl_SP_CYl_al,d2_SP_CYl_al 
complex*16  SP_CYl_a2,dl_SP_CYl_a2,d2_SP_CYl_a2 
complex*16  SP_CYl_bl,dl_SP_CYl_bl,d2_SP_CYl_bl 
complex*  16  SP_CYl_b2,dl_SP_CYl_b2,d2_SP_CYl_b2 

complex*16  VXP_CYl_al,dl_VXP_CYl_al,d2_VXP_CYl_al 
complex*16VXP_CYl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2 
complex*16VXP_CYl_bl,dl_VXP_CYl_bl,d2_VXP_CYl_bl 
complex*  16  VXP_CY  l_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2 

complex*  16  VRTP_CYl_al  ,dl_VRTP_CYl_al  ,d2_VRTP_CYl_al 
complex*16VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VRTP_CYl_a2 
complex*16  VRTP_CYl_bl,dl_VRTP_CYl_bl,d2_VRTP_CYl_bl 
complex*16  VRTP_CYl_b2,dl_VRTP_CYl_b2,d2_VRTP_CYl_b2 

complex*  1 6  lame_c  1  ,shear_c  1  ,cl_c  1  ,ct_c  1 

complex*16Al_Cl,A2_Cl,Bl_C132_Cl,Cl_Cl,C2_Cl 

common  /CYLINDER!/  SP_CYl_al,dl_SP_CYl_al,d2_SP_CYl_al, 
SP_CYl_a2,dl_SP_CYl_a2,d2_SP_CYl_a2, 

SP_CY  l_bl,dl_SP_CYl_bl  ,d2_SP_CYl_b  1, 

SP_CY  l_b2,dl_SP_CY  l_b2,d2_SP_CYl_b2, 

VXP_CYl_al,dl_VXP_CYl_al,d2_VXP_CYl_al, 

VXP_CYl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2, 

VXP_CYl_bl,dl_VXP_CYl_bl,d2_VXP_CYl_bl, 

VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2, 

VRTP_CYl_al,dl_VRTP_CYl_al,d2_VRTP_CYl_al. 

VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VRTP_CYl_a2, 

VRTP_CYl_bl,dl_VRTP_CYl_bl,d2_VRTP_CYl_bl, 

VRTP_CY  l_b2,dl_VRTP_CYl_b2,d2_VRTP_CYl_b2, 

lame_c  1  ,shear_c  1  ,cl_c  1  ,ct_c  1 , 

A1_C1,A2_C131_C1,B2_C1,C1_C1,C2_C1 


138 


TD  11,065 


323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 


Q  :f:5i:5ic***** ♦****:*:***♦♦♦* *****2is*Jic*5ic:i<3ic***5j: *******:!« ****** **5|c****5t:**5|::f:*** 

^  ****************************:|s************************************* 

C  DEFINITIONS  FOR  COMMON  BLOCK  /OFLUID/ 
complex*  16  OFSC,dl_OFSC,M_OF 
common /OFLUID/ OFSC,dl_OFSC,M_OF 

^  *********************:^:*:(::J:*3f:sJ:*:f;:i::J:*:l::};:|c^5j:*:f:H:************************* 

^  ****************************:):*:}:4:9f;9)c:):H:  *********************  ********* 

C  DEFINITIONS  FOR  COMMON  BLOCK  /IFLUID/ 
common  /IFLUID/  IFSC,dl_IFSC,D_IF 
complex*  16  IFSC,dl_IFSC,D_IF 

Q  ****************************************************************** 

C  INTERNAL  VARIABLES 
integer  size,iflag 

complex*  1 6  smc  linv(7,7),workc  1  (7, 14) 

size  =  7 
iflag  =  0 


CALL  MINV(smc  1  ,smc  linv.workc  1 , size, iflag) 


C  RADIAL  EXCITATION  exctype  =  1 
C  AXIAL  EXCITATION  exctype  =  0 


if  (exctype  .eq.  1)  then 
A1_C1  =  -smclinv(l,l) 
A2_C1  =  -smclinv(2,l) 
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369  B  1_C  1  =  -smc  linv(3, 1) 

370  B2_C1  =  -smclinv(4,l) 

371  C  1_C  1  =  -smc  linv(5, 1) 

372  C2_C  1  =  -smc  linv(6, 1) 

373  M_OF  =  (Al_Cl*dl_SP_CYl_bl  + 

374  1  A2_Cl*dl_SP_CYl_b2  + 

375  1  Bl_Cl*n/b*VXP_CYl_bl  + 

376  1  B2_Cl*n/b*VXP_CYl_b2  + 

377  1  Cl_Cl*(O.ODO,1.0DO)*k*VRTP_CYl_bl  + 

378  1  C2_Cl*(O.ODO,LODO)*k*VRTP_CYl_b2)/dl_OFSC 

379  D_IF  =  -smclinv(7,l) 

380  elseif  (exctype  .eq.  0)  then 

381  A1_C1  = -smclinv(l,2) 

382  A2_C  1  =  -smc  1  inv(2,2) 

383  B1_C1  = -smclinv(3,2) 

384  B2_C  1  =  -smc  1  inv(4,2) 

385  C1_C1  =-smclinv(5,2) 

386  C2_C1  =  -smclinv(6,2) 

387  M_OF  =  (Al_Cl*dl_SP_CYl_bl  + 

388  1  A2_Cl*dl_SP_CYl_b2  + 

389  1  Bl_Cl*n/b*VXP_CYl_bl  + 

390  1  B2_Cl*n/b*VXP_CYl_b2  + 

391  1  Cl_Cl*(0.OD0,1.0D0)*k*VRTP_CYl_bl  + 

392  1  C2_Cl*(0.0D0,1.0D0)*k*VRTP_CYl_b2)/dl_OFSC 

393  D_IF  =  -smclinv(7,2) 

394  endif 

395 

396 

397 

398  return 

399  end 

400 

401 

402 
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CROSS  REFERENCE 
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SUBPROGRAMS 


Cross  Reference 
Subprograms : 


Thu  Oct  19  16:48:44  1995 


Symbol  File/Subprogram  Line 

abc_cl_invert 

mr2cf.£'MAIN 

316 

smcl,f^abc_cl_invert  279D 

abc_rcl_invert 

c  1  .f/abc  rcl  invert 

533D 

mr2cf.fMAIN 

388 

abc_rc2_invert 

c2.f/abc_rc2_invert 

800D 

mr2cf.f/MAIN 

433 

abc_rod_invert 

“  /  “  356 

rf.f/abc  rod  invert 

201D 

abc_rod_solve 

“  /abc_rod_solve 

152D 

cla_pot  cl.f^cla_pot 

14D 

mr2cf.£MAIN 

310, 326, 382, 

clb_pot  cl.£^clb_pot 

lOOD 

mr2cf.£MAIN 

311,383,422 

c2b_pot  c2.f/c2b_pot 

17D 

mr2cf.fMA[N 

423, 450 

c2c_pot  c2.£^c2c_pot 

107D 

mr2cf.f(MAIN 

424 

cbesshl  cbessl.f/cbesshl 

483D 

fluids.£^ofl_pot 

74 

cbessh2  cbessl.^cbessh2 

497D 

cbessi  “  /cbessi 

141D 

“  /cbessk 

273 

“  /dlcbessi 

460,460 

cbessj  cl.f^cla_pot 

74, 82, 89 

“/clb_pot 

160, 169, 176 

c2.f/c2b_pot 

78, 86, 93 

“  /c2c_pot 

170, 179, 186 

cbessLf/cbesshl 

489 

“  /cbessh2 

503 

“  /cbessj  58D 

“  /cbessy 

201 

“  /dlcbessj 

330, 330 

“  /d2cbessj 

346, 347, 347 

142 


Subprograms : 

Symbol  File/Subprogram  Line 


fluids.f/ifl_pot 

43 

rf.f/rod_pot 

44, 50, 54 

cbessk 

cbessl.fi^cbessk 

244D 

“  /dl  cbessk 

300, 300 

fluids.f/ofl_pot 

80 

cbessy 

cl.f/cla_pot 

77, 85, 

“/clb_pot  163,172,179 

c2.f/c2b_pot  81, 89, 96 

“/c2c_pot  173,182,189 

cbessLf/cbesshl  489 
“  /cbessh2  503 

“  /cbessy  167D 

“  /dlcbessy  367,371,371,372,376,376,377,378, 

384, 384, 388, 388, 389 

“  /d2cbessy  413,413,414,418,418,419,420,425, 

425, 426, 427, 428, 429, 435, 435, 436, 
440,440,441,441 


cdabs  “  /cbessj 

72 

“  /cbessy 

180 

mr2cf.^MAE^ 

472 

cdcos  cbessl.f^cbessj 

126 

“  /cbessy 

233 

cdlog  cbessl.f/cbessk 

273 

“  /cbessy 

201 

cdsin  “  /cbessj 

127 

“  /cbessy 

232 

cdsqrt  “  /cbessj 

126 

“  /cbessy 

232 

dlcbesshl  “  /dlcbesshl  51  ID 

fluids.f/ofl_pot 

73 

dlcbessh2  cbessL:^dlcbessh2  526D 

dlcbessi  “  /dlcbessi 

453D 

dlcbessj  cl.£^cla_pot 

73, 81, 88 

“  /clb_pot 

159, 168, 175 

c2.f/c2b_pot 

77, 85, 92 

“  /c2c_pot 

169, 178, 185 

cbessl.f/dlcbesshl 

517 

“  /dlcbessh2 

532 

“  /dlcbessj 

323D 

fluids.f/ifl_pot 

42 

rf.f/rod_pot 

43, 49, 53 

Subprograms 
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Symbol  File/Subprogram  Line 


dlcbessk  cbessl.f/dlcbessk  293D 
fluids.f/ofl_pot  79 

dlcbessy  cl.f/cla_pot  76, 84, 

“/clb_pot  162,171,17 

c2.f/c2b_pot  80,  88, 95 

“/c2c_pot  172,181,18 

cbesskf/dlcbesshl  517 

“  /dlcbessh2  532 

“  /dlcbessy  356D 

d2cbessi  “  /d2cbessi  468D 
d2cbessj  cl.f^cla_pot  72, 80,  J 

“/clb_pot  158,167,17 

c2.f/c2b_pot  76,  84, 91 

“/c2c_pot  168,177,18- 

cbessl.f/d2cbessj  338D 

rf.f/rod_pot  42, 48, 52 

d2cbessk  cbessl.£^d2cbessk  308D 

d2cbessy  cl.fi'cla_pot  75,83,! 

“/clb_pot  161,170,17 

c2.f/c2b_pot  79,  87, 94 

“/c2c_pot  171,180,18' 

cbessl.f/d2cbessy  401D 

dabs  cl.£^output_rcl  868, 891 

c2.f/output_rc2  1266, 1289 


fluids.f/ofl_pot 

rf.£^oulput 

dcmplx  fluids.Mfl_pot 

mr2cf.£MAIN 
dsqit  fluids.f/ofl_pot 
fac  cbessl.f/cbessi 
“  /cbessj 
“  /cbessk 
“  /cbessy 
“  /fac  : 

gamma  “  /gamma 

iabs  “  /cbessi 

“  /cbessj 
“  /cbessk 
“  /cbessy 
“  /psi  <■ 


t  76,  84, 91 

162, 171, 178 
80,  88, 95 
172, 181, 188 
hi  517 
>  532 

356D 

5si  468D 

72, 80, 87 
158, 167, 174 
76,  84, 91 
168, 177, 184 
j  338D 

42,48, 52 
bessk  308D 
t  75, 83, 90 

161, 170, 177 
79,  87, 94 
171, 180, 187 
y  401D 

1  868,  891, 914, 940, 958, 984, 1002 

1266,  1289, 1312,  1338, 1356, 1382, 

1400 

70,70 

358, 370, 382, 396, 405, 419, 428 
ot  39 

189,209, 232 
72, 78 
155, 155 
88,  88 

267, 267, 279, 279 
195, 195, 207, 207 
21D 

la  4D 
149 
71 
255 
179 
43 
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Subprograms : 

Symbol  File/Subprogram  Line 


ifi_pot  fluids.f/ifl_pot  14D 

mr2cf.W^AIN  313, 321, 425, 440 

loglO  “  /  “  472 

minv  cl.f/abc_rcl_invert  610 
c2.f/abc_rc2_invert  931 

rf.f/abc_rod_invert  237 

“  /minv  448D 

smcl.f/abc_cl_invert  357 
ofl_pot  fluids.f/ofi_pot  52D 

mr2cf.f/MAIN  312, 332,  354, 366, 385, 403, 430, 456 

output  “  /  “  361, 393 

rf.f/output  264D 

output_if  fluids.f/output_if  9  ID 

mr2cf.W^IAE^  322,441 

output_of  fluids.f/output_of  134D 

mr2cf.mAIN  338, 368, 406, 460 

output_rcl  cl.fi'outputjcl  649D 

mr2cf.^MAIN  327, 398, 446 

output_rc2  c2.f^output_rc2  99 ID 

inr2cf.f/MAIN  451 

psi  cbessLf^cbessk  279, 279 

“  /cbessy  207, 207 

“  /psi  38D 

rod_pot  mr2cf.f/MABsr  353, 360, 384, 392 

rf.f/rod_pot  14D 

sys_matrix_cl 

mr2cf.fi'MAIN  314 

smcl.£^sys_matrix_cl  14D 
sys_matrix_rcl 

cl.f/sys_matrix_rcl  191D 

mr2cf.^MAIN  386 

sys_matrix_rc2 

c2.f/sys_matrix_rc2  198D 

mr2cf.mAIN  431 

sys_matrix_rod 

“  /  “  355 

rf.f/sys_matrix_rod  64D 
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Subprograms : 

Symbol  File/Subprogram  Line 


zabs  cl.f/output_rcl  868,891,914,940,958,984,1002 
c2.f/output_rc2  1266, 1289, 1312,  1338, 1356, 1382, 
1400 

rf.f/minv  483, 483, 495 

“  /output  358,  370, 382, 396, 405, 419, 428 

zsqrt  cl.f^cla_pot  71,79 

“/clb_pot  157,166 

c2.f/c2b_pot  75, 83 
“/c2c_pot  167,176 

fluids.f/ifl_pot  40 

mr2cf.fiMAIN  192, 193, 212, 213, 235, 236, 284 

rf.f/rod_pot  41, 47 
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VARIABLES 


Variables : 

Symbol  File/Subprogram  Line 


a  c2.f/abc_rc2_invert  800D/*,  806D 

“  /sys_matrix_rc2  325D,  328=,  670, 673, 677, 680, 709, 
711, 714, 717, 738, 738, 741, 741, 744, 

747, 751, 754, 779, 781 


cbessLf/cbesshl 

483D/*,485D,  489,489 

/cbessh2 

497D/*,  500D,  503, 503 

i« 

/cbessi 

141D/*,  145D,  148 

it 

/cbessj 

58D/*,  62D,  70 

it 

/cbessk 

244D/*,  248D,  253, 273 

it 

/cbessy 

167D/*,  171D,  177, 201 

it 

/dlcbesshl 

511D/*,514D,517,518 

/dlcbessh2 

526D/*,  529D,  532, 533 

it 

/dlcbessi 

453D/*,  456D,  460, 460, 460 

it 

/dlcbessj 

323D/*,  326D,  330, 330, 330 

it 

/dl  cbessk 

293D/*,  296D,  300, 300, 300 

ic 

/dl  cbessy 

356D/*,  359D,  367, 367, 371, 371, 371, 

372, 372,  376, 376, 376, 377, 377, 378, 
378, 379, 384, 384, 384, 388, 388, 388, 
389, 389 


“  /d2cbessi  468D/*,471D 

“  /d2cbessj  338D/*,  341D,  346, 346, 347, 347 

“  /d2cbessk  308D/*,311D 

“  /d2cbessy  401D/*,404D,413,413,413,414,414, 

414, 418, 418, 418, 419, 419, 420, 420, 

421, 421, 425, 425, 425, 426, 426, 427, 

427, 428, 428, 429, 429, 429, 430, 430, 

435, 435, 435, 435, 436, 440, 440, 440, 
441,441,441,441 
mr2cf.mAIN  8D 

smcl.f^abc_cl_invert  279D/*,  285D 
“  /sys_matrix_cl  87D,  90=,  178, 181, 184, 187, 205, 207, 
225, 225, 228, 228, 231, 234, 238, 241, 

256, 258 

al  cbessLf/cbessj  66D,  104=,  106, 113 
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Variables : 

Symbol  File/Subprogram  Line 


al_c  1  cl  .f/abc_rc  l_invert  560D,  575D,  6 1 8=,  629= 

“/cla_pot  42D,57D 

“/clb_pot  128D,  1430 

“  /output.rcl  675D,  690D,  751, 777, 799,  817, 836, 

855,  877, 900, 928,  944, 970, 988 
“  /sys_matrix_rcl  219D,  234D 

c2.f/abc_rc2_mvert  827D,  842D,  945=,  966= 

“/output_rc2  1017D,  1032D 
“  /sys_matrix_rc2  225D,  241D 

mr2cf.fiMAIN  108D,  123D 

smcl.:^abc_cl_mvert  306D,  321D,  367=,  373, 381=,  387 
“  /sys_matrix_cl  42D,  57D 

al_c2  c2.f/abc_rc2_invert  866D,  882D,  939=,  952, 960=,  973 

“/c2b_pot  45D,60D 

“/c2c_pot  136D,  152D 

“  /output_rc2  1056D,  1072D,  1 150, 1 176, 1 198, 12 16, 

1235, 1254, 1275, 1298, 1326, 1342, 

1368, 1386 

“  /sys_matrix_rc2  267D,  283D 

mr2cf.m\IN  149D,  164D 

al_rod  cl.£^abc_rcl_invert  583D,  589D,  624=,  635= 

“  /output_rc 1  698D,  704D 

“  /sys_matrix_rcl  242D,  248D 

c2.f/abc_rc2_invert  892D,  898D 

“/output_rc2  1081D,  1087D 

“  /sys_matrix_rc2  293D,  299D 

mr2cf.mAIN  70D,  74D 

rf.^abc_rod_invert  21  ID,  217D,  245=,  250= 

“  /abc_rod_solve  161D,  167D,  177=,  181=,  191, 191= 

“  /output  274D,  280D,  3 12, 3 15,  325, 329, 336, 

342,  348, 354, 366,  377, 392, 400, 415, 

423 

“/rod_pot  25D,30D 

“  /sys_matrix_rod  74D,  SOD 

aid  cl.f/output_rcl  721D,  751=,  769, 777=,  791, 799=,  809, 

817=,  829,  836=,  848, 855=,  865,  877=, 

889,  900=,  912, 928=,  938, 944=,  956, 

970=,  982, 988=,  1000 
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Variables : 

Symbol  File/Subprogram  Line 


alc2  c2.f^output_rc2  1116D,  1150=,  1168, 1176=,  1190, 1198=, 

1208, 1216=,  1228, 1235=,  1247, 1254=, 

1264, 1275=,  1287, 1298=,  1310, 1326=, 

1336, 1342=,  1354, 1368=,  1380, 1386=, 

1398 

a2  c  1  .f/sys_matrix_rc  1  263D,  266=,  377, 380, 382, 385,  393, 

412, 415, 422, 436, 439, 447, 450 
c2.f/sys_matrix_rc2  325D,  331=,  671, 674, 676, 679, 713, 
714,716,717,745,748 
cbessl.f/cbessj  66D,  106=,  108, 113 

smcL£^sys_matrix_cl  87D,  92=,  179, 182, 184, 187, 209, 212, 
232, 235 

a2_cl  cl.f/abc_rcl_invert  560D,  575D,  619=,  630= 

“/cla_pot  42D,57D 

“/clb_pot  128D,  143D 

“  /output_rcl  675D,  690D,  755, 781, 801,  819, 838, 

857, 879, 902, 930, 946, 972, 990 
“  /sy  s_matrix_rc  1  2 1 9D,  234D 

c2.f/abc_rc2_invert  827D,  842D,  946=,  967= 

“/output_rc2  1017D,  1032D 

“  /sys_matrix_rc2  225D,  241D 

mr2cf.lWvlAIN  108D,  123D 

smcl,f^abc_cl_invert  306D,  321D,  368=,  374, 382=,  388 
“  /sys_matrix_cl  42D,  57D 

a2_c2  c2.f^abc_rc2_invert  866D,  882D,  940=,  953, 961=,  974 

“/c2b_pot  45D,60D 

“/c2c_pot  136D,  152D 

“  /output_rc2  1056D,  1072D,  1154, 1180, 1200, 1218, 

1237, 1256, 1277, 1300, 1328, 1344, 

1370, 1388 

“  /sys_matrix_rc2  267D,  283D 

mr2cf.f/MAIN  149D,  164D 

a2cl  cl.f/output_rcl  721D,  755=,  769, 781=,  791, 801=,  809, 

819=,  829,  838=,  848, 857=,  865,  879=, 

889, 902=,  912, 930=,  938, 946=,  956, 

972=,  982, 990=,  1000 

a2c2  c2.f/output_rc2  1116D,  1154=,  1168, 1180=,  1190, 1200=, 

1208, 1218=,  1228, 1237=, 1247, 1256=, 

1264, 1277=,  1287, 1300=,  1310, 1328=, 

1336, 1344=,  1354, 1370=,  1380, 1388=, 

1398 
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Variables : 

Symbol  File/Subprogram  Line 


a3  cbessl.fi^cbessj  66D,  108=,  110, 113 
a4  “  /  «  66D,  110=,  113 

am  «  /  »  g2D,  113=,  126 

“  /cbessy  172D,  225=,  232 

ao_lcyl  cl.£'sys_matrix_rcl  191D/*,  197D,  376, 379, 382,  385, 413, 

416, 429, 429, 432, 432, 436, 439, 442, 

445, 463, 465, 481, 483, 512, 515 
c2.f/sys_matrix_rc2  198D/*,  204D,  328, 331 
mr2cf.£MAIN  25D,  202=,  214, 299, 310=,  313=,  314=, 
316=,  318, 324,  382=,  386=,  421=,  425=, 

431=,  433=,  437, 443 

smcl.£'sys_matrix_cl  14D/*,  20D,  90, 92, 210, 213 

ao_2cyl  mr2cf.f/MAIN  26D,  225=,  237, 423= 

ao_rod  cL£^sys_matrix_rcl  191D/*,  197D,  266, 392, 395, 396, 408, 

410, 420, 423, 447, 449, 453, 473, 493, 

522 

mr2cf.£'MAIN  20D,  266=,  284, 353=,  354=,  355=,  358, 

364, 384=,  386=,  390, 395 

rf.f/sys_matrix_rod  64D/*,  69D,  97, 103, 107, 113, 1 16, 

116, 118, 121, 125, 125, 139 
arg  fluids.f/ifi_pot  37D,  39=,  40 
b  cl.f/abc_rcl_invert  533D/*,  539D 

c2.f/sy  s_matrix_rc2  325D,  329=,  45 1 , 454, 457, 460, 467, 

470, 474, 477, 493, 495, 498, 501, 507, 

509, 512, 512, 515, 515, 523, 523, 526, 

526, 529, 532, 536, 539, 541, 541, 544, 

544, 547, 550, 554, 554, 557, 557, 569, 

571, 581, 583, 595, 597, 607, 609, 634, 

637, 647, 649 

smcl  .fi^abc_cl_invert  279D/*,  285D,  375, 376, 389, 390 
“  /sys_matrix_cl  87D,  91=,  111,  115 
bl  cbessl.f/cbessj  66D,  115=,  117, 124 
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Variables : 

Symbol  File/Subprogram  Line 


bl_c  1  cl .f^abc_rcl_invert  560D,  575D,  620=,  63 1= 

“  /cla_pot  42D,  57D 

“/clb_pot  128D,  143D 

“  /output_rcl  675D,  690D,  759, 821, 840,  881, 904, 

948, 974, 992 

“  /sys_matrix_rcl  219D,  234D 

c2.f/abc_rc2_invert  827D,  842D,  947=,  968= 

“/output_rc2  1017D,  1032D 

“  /sys_matrix_rc2  225D,  241D 

mr2cf.m^AIN  108D,  123D 

smcl.^abc_cl_invert  306D,  321D,  369=,  375, 383=,  389 
“  /sys_matrix_cl  42D,  57D 

bl_c2  c2.fi'abc_rc2_invert  866D,  882D,  941=,  954, 962=,  975 

“/c2b_pot  45D,60D 

“/c2c_pot  136D,  152D 

“  /output_rc2  1056D,  1072D,  1158, 1220, 1239, 1279, 

1302, 1346, 1372, 1390 
“  /sys_matiix_rc2  267D,  283D 

mr2cf.mAIN  149D,  164D 

bl_rod  cl.f^abc_rcl_invert  583D,  589D,  625=,  636= 

“  /output_rcl  698D,  704D 
“  /sys_matrix_rc 1  242D,  248D 

c2.f/abc_rc2_mvert  892D,  898D 

“/output_rc2  1081D,  1087D 

“  /sys_matrix_rc2  293D,  299D 

mr2cf.mAIN  70D,  74D 

rf.f/abc_rod_invert  21  ID,  217D,  246=,  25 1= 

“/abc_rod_solve  161D,  167D,  178=,  182=,  192, 192= 

“  /output  274D,  280D,  3 15, 3 16,  342, 348, 367, 

378, 401, 416, 424 
“/rod_pot  25D,30D 

“  /sys_matrix_rod  74D,  80D 

bid  cl.:^output_rcl  721D,  759=,  769,  821=,  829, 840=,  848, 

881=,  889, 904=,  912, 948=,  956, 974=, 

982, 992=,  1000 

blc2  c2.f/output_rc2  1116D,  1158=,  1168, 1220=,  1228, 1239=, 

1247, 1279=,  1287, 1302=,  1310, 1346=, 

1354, 1372=, 1380, 1390=,  1398 

b2  cl.f/sys_matrix_rcl  263D,  267=,  276, 279, 281, 284,  309, 

310,312,313, 332, 335 
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Variables : 

Symbol  File/Subprogram  Line 


c2.f/sys_matrix_rc2  325D,  332=,  452, 455, 457, 460, 468, 
471, 473, 476, 497, 500, 511, 511, 514, 

514, 530, 533,548, 551 
cbessl.f^cbessj  66D,  117=,  119, 124 

rf.f/sys_matrix_rod  94D,  97=,  104, 106, 1 15, 1 15, 1 1 8, 122 
smcl.f/sys_matrix_cl  87D,  93=,  102, 106, 109, 113, 137, 138, 
140, 141, 157, 160 

b2_cl  cl.f/abc_rcl_invert  560D,  575D,  621=,  632= 

“/cla_pot  42D,57D 

“/clb_pot  128D,  143D 

“  /output.rcl  675D,  690D,  762, 823, 842,  883, 906, 
950,976,994 

“/sys_matrix_rcl  219D,  234D 

c2.f/abc_rc2_invert  827D,  842D,  948=,  969= 

“/output_rc2  1017D,  1032D 

“  /sys_matrix_rc2  225D,  241D 

mr2cf.^MAIN  108D,  123D 

smcl.£^abc_cl_invert  306D,  321D,  370=,  376,  384=,  390 
“  /sys_matrix_cl  42D,  57D 

b2_c2  c2.^abc_rc2_invert  866D,  882D,  942=,  955, 963=,  976 

“/c2b_pot  45D,60D 

“/c2c_pot  136D,  152D 

“  /output_rc2  1056D,  1072D,  1161, 1222, 1241, 1281,. 

1304, 1348, 1374, 1392 
“  /sys_matrix_rc2  267D,  283D 

inr2cf.m^IAIN  149D,  164D 


b2cl 

cl.f/output_rcl 

72  ID,  762=,  769, 823=,  829, 842=,  848, 

883=,  889, 906=,  912, 950=,  956, 976=, 

982, 994=,  1000 

b2c2 

c2.f/output_rc2 

1116D,  1161=,  1168, 1222=,  1228, 1241=, 

1247, 1281=, 1287, 1304=,  1310, 1348=, 

1354, 1374=,  1380, 1392=,  1398 

b3 

cbessLf/cbessj 

66D,  119=,  121, 124 

b4 

66D,  121=,  124 

bb 

mr2cf.£/MAIN 

9D 

bm 

cbessl.f/cbessj 

62D,  124=,  127 

“  /cbessy 

172D,  229=,  233 

bmag 

rf.f/minv 

461D,  495=,  499 
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Variables : 

Symbol  File/Subprogram  Line 


bo_cl 


cl 

cl  cl 


cl  c2 


cl.f/sys_matrix_rcl  191D/*,  197D,  267, 275, 278, 281, 284, 
305, 307, 310, 313, 325, 325, 328, 328, 

331,334, 338,341,358, 360 
c2.f/sys_matrix_rc2  198D/*,  204D,  329, 332 
mr2cf.f/MAIN  47D,  214=,  299, 311=,  312=,  314=,  316=, 

324, 383=,  385=,  386=,  388=,  395, 401, 

422=,  431=,  443, 448 

smcl.£^sys_matrix_cl  14D/*,  20D,  91, 93, 101, 105, 109, 113, 
133, 135, 138, 141, 150, 150, 153, 153, 

156, 159, 163, 166 

c2.f/abc_rc2_invert  800D/*,  806D,  954, 955, 975, 976 
“  /sys_matrix_rc2  325D,  330=,  343, 347, 351, 353, 355, 

357, 387, 389, 392, 395, 415, 415, 418, 
418,421,424,428,431 
rf.^minv  448D/*,  456D,  465 

“  /  “  460D,  502=,  503, 513=,  515, 521=,  523 

c  1  .f^abc_rc  l_invert  560D,  575D,  622=,  633= 

“/cla_pot  42D,57D 

“/clb_pot  128D,  143D 

“  /output_rc  1  675D,  690D,  765, 785, 803,  825, 844, 

859, 885, 908, 932, 952, 978, 996 
“  /sys_matrix_rc  1  2 19D,  234D 

c2.f/abc_rc2_invert  827D,  842D,  949=,  970= 

“/output_rc2  1017D,  1032D 

“  /sys_matrix_rc2  225D,  241D 

mr2cf.mvlAIN  108D,  123D 

smcl.f^abc_cl_invert  306D,  321D,  371=,  377, 385=,  391 
“  /sys_matrix_cl  42D,  57D 

c2.f/abc_rc2Jnvert  866D,  882D,  943=,  956, 964=,  977 
c2.f/c2b_pot  45D,  60D 

“/c2c_pot  136D,  152D 

“  /output_rc2  1056D,  1072D,  1164, 1184, 1202, 1224, 

1243,  1258,  1283, 1306, 1330,  1350, 

1376, 1394 

“  /sys_matrix_rc2  267D,  283D 

mr2cf.fiMAIN  149D,  164D 
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Variables : 

Symbol  File/Subprogram  Line 


cl_rod  cl.£^abc_rcl_invert  583D,  589D,  626=,  637= 

“  /output_rc  1  698D,  704D 

“  /sys_matrix_rcl  242D,  248D 

c2.f/abc_rc2_invert  892D,  898D 

“  /output_rc2  108  ID,  1087D 

“  /sys_matrix_rc2  293D,  299D 

mr2cf.fiMA]N  70D,  74D 

rf.f/abc_rod_invert  211D,  217D,  247=,  252= 

“/abc_rod_solve  161D,  167D,  179=,  183=,  193, 193= 

“  /output  274D,  280D,  317, 329, 337, 343, 349, 

355, 356, 368, 380, 393, 394, 403, 417, 

426 

“/rod_pot  25D,30D 
“  /sys_matrix_rod  74D,  80D 

del  cl.fi^output_rcl  721D,  765=,  769, 785=,  791, 803=,  809, 

825=,  829, 844=,  848, 859=,  865,  885=, 

889, 908=,  912, 932=,  938, 952=,  956, 

978=,  982, 996=,  1000 

clc2  c2.f^output_rc2  1116D,  1164=,  1168, 1184=,  1190, 1202=, 

1208, 1224=,  1228, 1243=,  1247, 1258=, 

1264, 1283=,  1287, 1306=,  1310, 1330=, 

1336, 1350=,  1354, 1376=,  1380, 1394=, 

1398 

c2  “ /sys_matrix_rc2  325D,  333=,  344, 348, 351, 355, 391, 

392, 394, 395,422,425 

c2_cl  cl.f/abc_rcl_mvert  560D,  575D,  623=,  634= 

“/cla_pot  42D,57D 

“/clb_pot  128D,  143D 

“  /output_rc  1  675D,  690D,  767, 788,  806,  827,  846, 

862, 887, 910, 935, 954, 980, 998 
“  /sy  s_matrix_rc  1  2 1 9D,  234D 

c2.f/abc_rc2_invert  827D,  842D,  950=,  971= 

“/output_rc2  1017D,  1032D 
“  /sys_matrix_rc2  225D,  24  ID 

mr2cf.^MAIN  108D,  123D 

sme  1  .f/abc_c  IJnvert  306D,  32  ID,  372=,  378, 386=,  392 

“  /sys_matrix_cl  42D,  57D 
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Variables : 

Symbol  File/Subprogram  Line 


c2_c2  c2.f/abc_rc2_invert  866D,  882D,  944=,  957, 965=,  978 
“  /c2b_pot  45D,  60D 

“  /c2c_pot  136D,  152D 

“  /output_rc2  1056D,  1072D,  1166, 1187, 1205, 1226, 
1245, 1261, 1285, 1308, 1333, 1352, 

1378, 1396 

“  /sys_matrix_rc2  267D,  283D 
mr2cf.^MAIN  149D,  164D 

c2cl  cl.f/output_rcl  721D,  767=,  769, 788=,  791, 806=,  809, 

827=,  829, 846=,  848, 862=,  865,  887=, 

889, 910=,  912, 935=,  938, 954=,  956, 

980=, 982, 998=,  1000 

c2c2  c2.f/output_rc2  1116D,  1166=,  1168, 1187=,  1190, 1205=, 

1208, 1226=,  1228, 1245=,  1247, 1261=, 

1264, 1285=,  1287, 1308=,  1310, 1333=, 

1336, 1352=,  1354, 1378=,  1380, 1396=, 

1398 


cbesshl  cbessl.f/cbesshl  487D,  489= 


cbessh2 

cbessi 


cbessj 


fluids.f/ofl_pot 

68D 

mr2cf.£MMN 

38D 

cbessL£^cbessh2  501D,  503; 

mr2cf.f^MAIN 

38D 

cbessLf/cbessi 

146D,  158= 

“  /cbessk 

249D 

“  /dlcbessi 

458D 

nir2cf.fi'MAIN 

38D 

cl.f^cla_pot 

61D 

“/clb_pot 

147D 

c2.f/c2b_pot 

64D 

“  /c2c_pot 

157D 

cbessLf/cbesshl 

487D 

“  /cbessh2 

501D 

“  /cbessj 

63D,  91=,  94, 94= 

“  /cbessy 

173D 

“  /dlcbessj 

328D 

“  /d2cbessj 

343D 

fluids.f/ifl_pot 

32D 

mr2cf.f/MAIN 

38D 

rf.f/rod_pot 

33D 
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Variables : 

Symbol  File/Subprogram  Line 


cbessk  cbessl.f/cbessk  249D,  285= 

“  /dlcbessk  298D 

fluids.f/ofl_pot  68D 

mr2cf.fMAIN  38D 

cbessy  cl.f/cla_pot  61D 

“/clb_pot  147D 

c2.f/c2b_pot  64D 

“/c2c_pot  157D 

cbessLf/cbesshl  487D 

“  /cbessh2  501D 

“  /cbessy  173D,  213=,  217, 217=,  232= 

“  /dlcbessy  361D 

“  /d2cbessy  406D 

mr2cf.£MAIN  38D 

ci  c2.£'sys_matrix_rc2  199D/*,  204D 

fluids.f/ifl_pot  14D/*,  19D,  39 

mr2cf.£MAIN  23D,  277=,  3 13=,  3 15=,  32 1=,  425=, 

432=,  440= 

smcl.£'sys_matrix_cl  15D/*,  20D 
cinv  rf.f'minv  448D/*,  456D,  530= 

cl_cl  cl.£^abc_rcl_mvert  559D,  574D 

“/cla_pot  40D,56D,71 

“/clb_pot  126D,  142D,  157 

“  /output.rc 1  674D,  689D 

“  /sys_matrix_rcl  217D,  233D 

c2.f/abc_rc2_invert  826D,  84  ID 

“/output_rc2  1016D,  1031D 

“  /sys_matrix_rc2  224D,  240D 

mr2cf.f/MAIN  107D,  122D,  212= 

smcl.f^abc_cl_invert  305D,  320D 
“  /sys_matrix_cl  40D,  56D 
cl_c2  c2.f^abc_rc2_mvert  864D,  88  ID 

“/c2b_pot  43D,59D,75 

“/c2c_pot  134D,  151D,  167 

“/output_rc2  1054D,  1071D 

“  /sys_matrix_rc2  265D,  282D 

inr2cf.f/MAIN  147D,  163D,  235= 
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Variables : 

Symbol  File/Subprogram  Line 


cl_rod 

CO 


CO  c2 


ct  cl 


ct  c2 


ct  rod 


“  /  “  34D,  192=,  284, 353=,  360=,  384=,  392= 

rf.f/rod_pot  14D/*,  21D,  41 

cl.£^sys_matrix_rcl  192D/*,  197D 
c2.f/sys_matrix_rc2  199D/*,  204D 
fluids.f/ofl_pot  52D/*,  55D,  70, 72, 78 

mr2cf.f/MAIN  21D,  274=,  312=,  315=,  332=,  354=, 

355=,  366=,  385=,  386=,  403=,  430=, 

431=,  456= 

rf.£^sys_matrix_rod  64D/*,  69D 

smc  1  .fi^sy  s_matrix_c  1  1 5D/* ,  20D 

c2.f/sys_matrix_rc2  198D/*,  204D,  330, 333 
mr2cf.^MAIN  53D,  237=,  299, 330, 424=,  430=,  43 1=, 

433=,  448, 454 


cl.£^abc_rcl_invert  559D,  574D 
“/cla_pot  40D,56D,79 

“/clb_pot  126D,  142D,  166 

“  /output_rcl  674D,  689D 

“  /sys_matrix_rcl  217D,  233D 

c2.f/abc_rc2_invert  826D,  841D 

“  /output_rc2  1016D,  103  ID 

“  /sys_matiix_rc2  224D,  240D 

mr2cf.m^IAIN  107D,  122D,  213= 

smc  l.f^abc_cl_in  vert  305D,  320D 

“  /sys_matrix_cl  40D,  56D 
c2.£^abc_rc2_invert  864D,  88  ID 
“/c2b_pot  43D,59D,83 

“/c2c_pot  134D,  151D,  176 

“/output_rc2  1054D,  1071D 

“  /sys_matrix_rc2  265D,  282D 

nir2cf.m\IN  147D,  163D,  236= 


««  ! 

rf.f/rod_pot 


34D,  193=,  353=,  360=,  384=,  392= 
14D/*,  21D,  47 
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Variables : 

Symbol  File/Subprogram  Line 


cylinderl  cl.f^abc_rcl_invert  562D 

“/cla_pot  44D 

“/clb_pot  130D 

“/output_rcl  677D 

“  /sys_matrix_rc  1  22 1 D 

c2.f/abc_rc2_invert  829D 

“  /output_rc2  101 9D 

“  /sys_matrix_rc2  228D 

mr2cf.f/MAIN  HOD 

smcl.fi^abc_cl_inveit  308D 
“  /sys_matrix_cl  44D 

cylinder2  c2.£^abc_rc2_invert  869D 

“/c2b_pot  47D 

“  /c2c_pot  139D 

“  /output_rc2  1059D 

“  /sys_matrix_rc2  270D 

mr2cf.»MAIN  15  ID 

dl_ifsc  c2.f^abc_rc2_invert  915D,  917D 

“  /output_rc2  1 104D,  1 106D 

“  /sys_matrix_rc2  315D,  317D,  787 
fluids.f/ifl_pot  25D,  27D,  42= 

“  /outputjf  102D,  104D,  123 

mr2cf.W^IAIN  172D,  174D,  427 

smc  1  .f^abc_c  l_invert  34  ID,  343D 

“  /sys_matrix_cl  77D,  79D,  264 
dl_ofsc  cl.£^abc_rcl_invert  595D,  597D 

“/output.rcl  710D,712D 

“  /sys_matrix_rcl  254D,  256D,  372 

c2.f/abc_rc2_invert  904D,  906D,  957, 978 

“/output_rc2  1093D,  1095D 

“  /sys_matrix_rc2  305D,  307D,  345, 349, 353,  357, 360, 
363 

fluids.f/ofl_pot  61D,  63D,  73=,  79= 

“  /output_of  145D,  147D,  165 

mr2cf.^MAIN  82D,  84D,  334, 367, 404, 435, 458 

rf.f/abc_rod_invert  223D,  225D 
“  /sys_matrix_rod  86D,  88D,  143 
smcl.^abc_cl_invert  330D,  332D,  378,  392 
“  /sys_matrix_cl  66D,  68D,  103, 107,  111,  115, 118, 121 
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Variables : 

Symbol  File/Subprogram  Line 


dl_sp_cyl_al  cl.f/abc_rcl_invert  544D,  562D 
cl  .f/cla_pot  25D,  44D,  73= 

“/clb_pot  HID,  130D 

“  /output_rc  1  659D,  677D,  752, 777,  836, 877, 970 

“  /sys_matrix_rc  1  202D,  22  ID,  377, 404, 430, 459 

c2.f/abc_rc2_invert  8 1  ID,  829D 
“  /output_rc2  lOOlD,  1019D 

“  /sys_matrix_rc2  209D,  228D,  671, 705, 739, 775 
inr2cf.£MAIN  92D,  HOD 

smcl.f/abc_cl_invert  290D,  308D 
“  /sys_matrix_cl  25D,  44D,  179, 201, 226, 252 
dl_sp_cyl_a2  cl.f^abc_rcl_invert  545D,  563D 
“/cla_pot  26D,45D,76= 

“/clb_pot  H2D,  131D 

“  /output_rcl  660D,  678D,  756, 781, 838, 879, 972 

“  /sys_matrix_rcl  203D,  222D,  380, 406, 433, 461 
c2.f/abc_rc2_invert  812D,830D 
“  /output_rc2  1002D,  1020D 

“  /sys_matrix_rc2  2  lOD,  229D,  674, 707, 742, 777 

mr2cf.mAIN  93D,  HID 

smc  1  .f^abc_c  l_invert  29 1 D,  309D 

“  /sys_matrix_cl  26D,  45D,  182, 203, 229, 254 
dl_sp_cyl_bl  cl.f/abc_rcl_mvert  546D,  564D 
“/cla_pot  27D,46D 

“  /clb_pot  1 13D,  132D,  159= 

“  /output_rcl  661D,  679D 

“  /sys_matrix_rcl  204D,  223D,  276, 301, 326, 354 

c2.f/abc_rc2_invert  81 3D,  83  ID 

“/output_rc2  1003D,  1021D 

“  /sys_matrix_rc2  2HD,  230D,  468, 503, 542, 577 
mr2cf.mAIN  94D,  H2D 

smcLf^abc_cl_invert  292D,  310D,  373, 387 
“  /sys_matrix_cl  27D,  46D,  102, 103, 129, 151 
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Variables : 

Symbol  File/Subprogram  Line 


dl_sp_cyl_b2  cl.f/abc_rcl_invert  547D,565D 
“/cla_pot  28D,47D 

“  /c  lb_pot  1 14D,  BSD,  162= 

“  /output_rcl  662D,  680D 
“  /sys_matrix_rcl  205D,  224D,  279, 303, 329, 356 

c2.f/abc_rc2_invert  814D,  832D 

“/output_rc2  1004D,  1022D 

“  /sys_matrix_rc2  212D,  23  ID,  471,  505, 545, 579 

mr2cf.£MAIN  95D,  11 3D 
smc  1  .fi'abc.c IJnvert  293D,  3 1  ID,  374,  388 

“  /sys_matrix_cl  28D,  47D,  106, 107, 131, 154 
dl_sp_cy2_bl  c2.f/abc_rc2_invert  849D,  869D 
“  /c2b_pot  28D,  47D,  77= 

“/c2c_pot  119D,  139D 

“  /output_rc2  1039D,  1059D,  1151, 1176, 1235, 1275, 

1368 

“  /sys_matrix_rc2  250D,  270D,  452, 489, 524, 565 

mr2cf.m^AIN  132D,  15  ID 

dl_sp_cy2_b2  c2.f/abc_rc2_invert  850D,  870D 
“  /c2b_pot  29D,  48D,  80= 

“/c2c_pot  BOD,  MOD 

“  /output_rc2  1040D,  1060D,  1 155, 1180, 1237, 1277, 

1370 

“  /sys_matrix_rc2  251D,  271D,  455, 491, 527, 567 

inr2cf.^MAIN  BSD,  152D 

dl_sp_cy2_cl  c2.f/abc_rc2_mvert  85 ID,  87 ID,  952, 973 

“/c2b_pot  30D,49D 

“/c2c_pot  BID,  141D,  169= 

“/output_rc2  1041D,  1061D 

“  /sys_matrix_rc2  252D,  272D,  344, 345,  383, 416 

mr2cf.m^lAIN  B4D,  BSD 

dl_sp_cy2_c2  c2.f/abc_rc2_invert  852D,  872D,  953, 974 
c2.f/c2b_pot  3  ID,  50D 

“/c2c_pot  B2D,  142D,  172= 

“/output_rc2  1042D,  1062D 

“  /sys_matrix_rc2  253D,  273D,  348, 349, 385, 419 

mr2cf.mAIN  B5D,  154D 
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Variables : 

Symbol  File/Subprogram  Line 


dl_sp_rod  cl.f/abc_rcl_invert  581D,  586D 
“  /ou^ut_rc 1  696D,  70 1 D 

“  /sys_matrix_rcl  240D,  245D,  393, 418, 447, 471 

c2.f/abc_rc2_invert  890D,  895D 

“/output_rc2  1079D,  1084D 
“  /sys_matrix_rc2  29  ID,  296D 
mr2cf.^MAIN  67D,  72D 

rf.f/abc_rod_invert  209D,  214D 

“  /abc_rod_solve  159D,  164D 

“  /output  272D,  277D,  312, 325, 348, 366, 415 

“/rod_pot  23D,27D,43= 

“  /sys_matrix_rod  72D,  77D,  103, 1 1 1, 1 19, 137 
dl_vrtp_cyl_al 

c  1  .f/abc_rc  l_mvert  554D,  570D 

“/cla_pot  35D,52D,88= 

“/clb_pot  121D,  138D 

“  /output_rcl  669D,  685D,  765, 785, 803, 859, 908, 
932, 952, 996 

“  /sys_matrix_rcl  212D,  229D,  388, 413, 441, 511 

c2.f/abc_rc2_invert  82  ID,  837D 
“/output_rc2  lOllD,  1027D 
“  /sys_matrix_rc2  219D,  236D,  682, 714, 750 

mr2cf.^MAIN  102D,  118D 

smc  1  .£/abc_c  l_invert  300D,  3 1 6D 

“  /sys_matrix_cl  35D,  52D,  190, 210, 237 
dl_vrtp_cyl_a2 

cl.f/abc_rcl_invert  555D,  57  ID 

“/cla_pot  36D,53D,91= 

“/clb_pot  122D,  139D 

“  /output_rcl  670D,  686D,  767, 788, 806, 862, 910, 

935, 954, 998 

“  /sys_matrix_rcl  213D,  230D,  390, 416, 444, 514 
c2.f/abc_rc2_invert  822D,  838D 

“  /output_rc2  1012D,  1028D 

“  /sys_matrix_rc2  220D,  237D,  684, 717, 753 

mr2cf.f/MAIN  103D,  119D 

smcL£^abc_cl_invert  301D,  317D 
“  /sys_matrix_cl  36D,  53D,  192, 213, 240 
dl_vrtp_cyl_bl 

cl.f/abc_rcl_invert  556D,  572D 

“/cla_pot  37D,54D 
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Variables : 

Symbol  File/Subprogram  Line 


“  /clb_pot  123D,  140D,  175= 

“  /output.rcl  671D,  687D 

“  /sys_matrix_rcl  214D,  231D,  287,  310, 337 

c2.f/abc_rc2_invert  823D,  839D 

“/output_rc2  1013D,  1029D 

“  /sys_matrix_rc2  22  ID,  238D,  479, 5 12, 553, 647 

mr2cf.m\IN  104D,  120D 

smc  1  .£^abc_c  l_invert  302D,  3 1 8D 

“  /sys_matrix_cl  37D,  54D,  117, 138, 162 
dl_vitp_cyl_b2 

cl.f/abc_rcl_invert  557D,  573D 

“/cla_pot  38D,55D 

“/clb_pot  124D,  141D,  178= 

“/output_rcl  672D,  688D 

“  /sys_matrix_rcl  215D,  232D,  289, 313, 340 

c2.f/abc_rc2_invert  824D,  840D 

“/output_rc2  1014D,  1030D 

“  /sys_matrix_rc2  222D,  239D,  481, 515, 556, 649 

mr2cf.^MAIN  105D,  12  ID 

smc  1  .£^abc_c  l_mvert  303D,  3 1 9D 

“  /sys_matrix_cl  38D,  55D,  120, 141, 165 

dl_vrtp_cy2_bl 

c2.f/abc_rc2_mvert  859D,  877D 

“/c2b_pot  38D,55D,92= 

“/c2c_pot  129D,  147D 

“  /output_rc2  1049D,  1067D,  1164, 1184, 1202, 1258, 

1306, 1330, 1350, 1394 

“  /sys_matrix_rc2  260D,  278D,  463, 498, 535, 633 

mr2cf.fMAIN  142D,  159D 

dl_vrtp_cy2_b2 

c2.f/abc_rc2_invert  860D,  878D 

“/c2b_j>ot  39D,56D,95= 

“/c2c_pot  BOD,  148D 

“  /output_rc2  1050D,  1068D,  1166, 1187, 1205, 1261, 

1308,  1333, 1352, 1396 

“  /sys_matrix_rc2  261D,  279D,  465, 501, 538, 636 

mr2cf.^AIN  143D,  BOD 
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Variables : 

Symbol  File/Subprogram  Line 


dl_vrtp_cy2_cl 

c2.f/abc_rc2_invert  861D,  879D 
“/c2b_pot  40D,57D 

“  /c2c_pot  13  ID,  149D,  185= 

“/output_rc2  1051D,  1069D 
“  /sys_matrix_rc2  262D,  280D,  359, 392, 427 
mr2cf.f/MAIN  144D,  161D 

dl_vitp_cy2_c2 

c2.f/abc_rc2_mvert  862D,  880D 
“/c2b_pot  41D,58D 

“/c2c_pot  132D,  150D,  188= 

“/output_rc2  1052D,  1070D 
“  /sys_matrix_rc2  263D,  281D,  362, 395, 430 
inr2cf.mAIN  145D,  162D 

dl_vrtp_rod  cl.f/abc_rcl_invert  582D,  588D 
“  /output_rc  1  697D,  703D 

“  /sys_matrix_rc  1  241D,  247D,  398, 423, 452, 52 1 

c2.f/abc_rc2_invert  89  ID,  897D 
“  /output_rc2  1080D,  1086D 
“  /sys_matrix_rc2  292D,  298D 
inr2cf.f/MAIN  69D,  73D 

rf.f/abc_rod_invert  210D,  216D 
“ /abc_rod_solve  160D,  166D 
“  /output  273D,  279D,  3 17, 330, 337, 355, 380, 

393,403,426 

“/rod_pot  24D,29D,53= 

“  /sys_matrix_rod  73D,  79D,  109, 1 16, 124 
dl_vxp_cyl_al 

cl.f/abc_rcl_invert  549D,  566D 
“  /cla_pot  30D,  48D,  81= 

“/clb_pot  116D,  134D 

“  /output_rcl  664D,  681D,  760, 821, 881, 904, 948, 
974, 992 

“  /sys_matrix_rc 1  207D,  225D,  383, 435, 485 

c2.f/abc_rc2_invert  816D,  833D 
“/output_rc2  1006D,  1023D 

“  /sys_matrix_rc2  214D,  232D,  677, 745 
mr2cf.f/MAIN  97D,  114D 

smc  1  .£^abc_c  l_invert  295D,  3 1 2D 

“  /sys_matrix_cl  30D,  48D,  185, 232 
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Variables : 

Symbol  File/Subprogram  Line 


dl_vxp_cyl_a2 

cl.f/abc_rcl_invert  550D,  567D 

“/cla_pot  31D,49D,84= 

“/clb_pot  117D,  135D 

“  /output_rc  1  665D,  682D,  763,  823,  883, 906, 950, 

976, 994 

“  /sys_matrix_rc  1  208D,  226D,  386, 438, 487 

c2.f/abc_rc2_invert  817D,  834D 

“/output_rc2  1007D,  1024D 

“  /sys_matrix_rc2  215D,  233D,  680, 748 

mr2cf.f/MAIN  98D,  115D 

smc  1  .f^abc_c  l_invert  296D,  3 1 3D 
“  /sys_matrix_cl  31D,  49D,  188, 235 
dl_vxp_cyl_bl 

c  1  .f/abc_rc  l_invert  55  ID,  568D 

“/cla_pot  32D,50D 

“  /clb_pot  1 18D,  136D,  168= 

“/output_rcl  666D,  683D 

“  /sys_matrix_rc 1  209D,  227D,  282, 332 

c2.f/abc_rc2_invert  818D,  835D 

“/output_rc2  1008D,  1025D 

“  /sys_matrix_rc2  216D,  234D,  474, 547, 611 

inr2cf.f/MAIN  99D,  116D 

smc  1  .£^abc_c  l_mvert  297D,  3 14D 

“  /sys_matrix_cl  32D,  50D,  110, 157 
dl_vxp_cyl_b2 

cl.f/abc_rcl_invert  552D,  569D 

“/cla_pot  33D,51D 

“  /clb_pot  119D,  137D,  171= 

“  /output_rcl  667D,  684D 

“  /sys_matrix_rcl  210D,  228D,  285, 335 

c2.f/abc_rc2_invert  819D,  836D 

“/output_rc2  1009D,  1026D 

“  /sys_matrix_rc2  217D,  235D,  477, 550, 613 

mr2cf.f/MAIN  lOOD,  117D 

smc  1  .f/abc_c  l_invert  298D,  3 1 5D 

“  /sys_matrix_cl  33D,  51D,  114,  160 
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Variables : 

Symbol  File/Subprogram  Line 


dl_vxp_cy2_bl 

c2.f/abc_rc2_invert  854D,  873D 

“/c2b_pot  33D,51D,85= 

“  /c2c_pot  124D,  143D 

“  /output_rc2  1044D,  1063D,  1159, 1220, 1279, 1302, 

1346, 1372, 1390 

“  /sys_matrix_rc2  255D,  274D,  458, 529, 599 

mr2cf.f/MAJN  137D,  155D 

dl_vxp_cy2_b2 

c2.f/abc_rc2_mvert  855D,  874D 

“  /c2b_pot  34D,  52D,  88= 

“  /c2c_pot  125D,  144D 

“  /output_rc2  1045D,  1064D,  1162, 1222, 1281, 1304, 

1348, 1374, 1392 

“  /sys_matrix_rc2  256D,  275D,  461, 532, 601 

inr2cf.fiMAIN  138D,  156D 

dl_vxp_cy2_cl 

c2.f/abc_rc2_invert  856D,  875D 

“  /c2b_pot  35D,  53D 

“  /c2c_pot  126D,  145D,  178= 

“  /output_rc2  1046D,  1065D 

“  /sys_matrix_rc2  257D,  276D,  352, 422 

mr2cf.^MAIN  139D,  157D 

dl_vxp_cy2_c2 

c2.f/abc_rc2_invert  857D,  876D 

“  /c2b_pot  36D,  54D 

“  /c2c_pot  127D,  146D,  181= 

“  /output_rc2  1047D,  1066D 

“  /sys_matrix_rc2  258D,  277D,  356, 425 

mr2cf.f/MAIN  140D,  158D 
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Variables : 

Symbol  File/Subprogram  Line 


dl_vxp_rod  cl.f/abc_rcl_invert  582D,  587D 
“  /output_rc  1  697D,  702D 

cl.f/sys_matrix_rcl  241D,  246D,  395, 449, 495 

c2.f/abc_rc2_invert  89  ID,  896D 

“  /output_rc2  1080D,  1085D 

“  /sys_matrix_rc2  292D,  297D 

mr2cf.^MAIN  68D,  73D 

rf.f/abc_rod_invert  210D,  215D 

“/abc_rod_solve  160D,  165D 

“  /output  273D,  278D,  316, 342,  367, 379, 402, 

416, 425 

“/rod_pot  24D,28D,49= 

“ /sys_matrix_rod  73D,  78D,  107, 122 
dlcbesshl  cbessl.f/dlcbesshl  515D,  517= 

fluids.f/ofl_pot  68D 

inr2cf.fMAIN  43D 

dlcbessh2  cbessl.f/dlcbessh2  530D,  532= 

mr2cf.^AIN  43D 

dlcbessi  cbessLf/dlcbessi  458D,  460= 
mr2cf.m4AIN  42D 

dlcbessj  cl.£^cla_pot  62D 

“/clb_pot  148D 

c2.f/c2b_pot  65D 

“/c2c_pot  158D 

cbessl.f/dlcbesshl  515D 

“  /dlcbessh2  530D 
“  /dlcbessj  328D,330= 

fluids.f/ifl_pot  32D 

mr2cf.£(MAIN  39D 

rf.f/rod_pot  34D 

dlcbessk  cbessl.fi^dlcbessk  298D,  300= 
fluids.f/ofl_pot  68D 

mr2cf.m4AIN  41D 

dlcbessy  cl.£^cla_pot  63D 

“/clb_pot  149D 

c2.f/c2b_pot  66D 

“/c2c_pot  159D 

cbessl.f/dlcbesshl  515D 

“  /dlcbessh2  530D 

“  /dlcbessy  361D,  367=,  372=,  379=,  384=,  389= 

inr2cf.f/MAIN  40D 
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Variables : 

Symbol  File/Subprogram  Line 


d2_sp_cyl_al  cl.f/abc_rcl_mvert  544D,  562D 
“/cla_pot  25D,44D,72= 

“/clb_pot  HID,  130D 

“  /output_rcl  659D,  677D,  751, 777, 900, 944, 988 

“  /sys_matrix_rc 1  202D,  22  ID,  376 

c2.f/abc_rc2_invert  811D,  829D 

“  /output_rc2  lOOlD,  1019D 

“  /sys_matrix_rc2  209D,  228D,  670 

mr2cf.m\IN  92D,  HOD 

smcl.f^abc_cl_invert  290D,  308D 
“ /sys_matrix_cl  25D,44D,  178 
d2_sp_cyl_a2  cl.f/abc_rcl_invert  545D,  563D 
“/cla_pot  26D,45D,75= 

“/clb_pot  H2D,  131D 

“  /output_rcl  660D,  678D,  755, 781, 902, 946, 990 

“  /sys_matrix_rc  1  203D,  222D,  379 

c2.f/abc_rc2_invert  81 2D,  830D 

“  /output_rc2  1002D,  1020D 

“  /sys_matrix_rc2  210D,  229D,  673 

mr2cf.^AIN  93D,  HID 

smc  1  .f/abc_c  l_invert  29 1 D,  309D 
“  /sys_matrix_cl  26D,  45D,  181 
<i2_sp_cyl_bl  cl.f/abc_rcl_mvert  546D,  564D 
“/cla_pot  27D,46D 

“/clb_pot  H3D,  132D,  158= 

c  1  .f/output_rc  1  66 1 D,  679D 

“  /sy  s_matrix_rc 1  204D,  223D,  275 

c2.f/abc_rc2_mvert  813D,  831D 

“  /output_rc2  1003D,  102  ID 

“  /sys_matrix_rc2  21  ID,  230D,  467 
mr2cf.f/MAIN  94D,  H2D 

smcl.f/abc_cl_invert  292D,  310D 
“ /sys_matrix_cl  27D,46D,  101 
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Variables : 

Symbol  File/Subprogram  Line 


d2_sp_cyl_b2  cl.f/abc_rcl_invert  547D,  565D 
“/cla_pot  28D,47D 

“/clb_pot  114D,  133D,  161= 

“  /output_rcl  662D,  680D 
“  /sys_matrix_rcl  205D,  224D,  278 

c2.f/abc_rc2_invert  814D,  832D 

“/output_rc2  1004D,  1022D 

“  /sys_matrix_rc2  212D,  23  ID,  470 
nir2cf.f/MAIN  95D,  113D 

smc  1  .f/abc_c  l_invert  293D,  3 1 1 D 

“ /sys_matrix_cl  28D,  47D,  105 
d2_sp_cy2_bl  c2.f/abc_rc2_invert  849D,  869D 
“/c2b_pot  28D,47D,76= 

“/c2c_pot  119D,  139D 

“  /output_rc2  1039D,  1059D,  1150, 1176, 1298, 1342, 

1386 

“  /sys_matrix_rc2  250D,  270D,  45 1 

mr2cf.£(MAIN  132D,  15  ID 

d2_sp_cy2_b2  c2.f/abc_rc2_invert  850D,  870D 
“/c2b_pot  29D,48D.79= 

“/c2c_pot  120D,  MOD 

“  /output_rc2  1040D,  1060D,  1154, 1180, 1300, 1344, 
1388 

“  /sys_matrix_rc2  25  ID,  27  ID,  454 

mr2cf.mAIN  .  133D,  152D 
d2_sp_cy2_cl  c2.f/abc_rc2Jnvert  851D,871D 
“/c2b_pot  30D,49D 

“  /c2c_pot  121D,  141D,  168= 

“  /ouq)ut_rc2  1041D,  1061D 
“  /sys_matrix_rc2  252D,  272D,  343 

mr2cf.^MAIN  134D,  153D 

d2_sp_cy2_c2  c2.f/abc_rc2_invert  852D,  872D 
“/c2b_pot  31D,50D 

“  /c2c_pot  122D,  142D,  171= 

“  /ou^ut_rc2  1042D,  1062D 
“  /sys_matrix_rc2  253D,  273D,  347 

nir2cf.f/MAIN  135D,  154D 
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Variables : 

Symbol  File/Subprogram  Line 


d2_sp_rod  cl.fi^abc_rcl_invert  581D,  586D 
“/output_rcl  696D,701D 
“  /sys_matrix_rcl  240D,  245D,  392 

c2.f/abc_rc2_invert  890D,  895D 

“  /output_rc2  1079D,  1084D 

“ /sys_matrix_rc2  291D,  296D 
mr2cf.^MAIN  67D,  72D 

rf.f/abc_rod_invert  209D,  214D 

“  /abc_rod_solve  159D,  164D 

“  /output  272D,  277D,  312, 315, 325, 377, 400, 

423 

“/rod_pot  23D,27D,42= 

“  /sys_matrix_rod  72D,  77D,  102 

d2_vrtp_cyl_al 

c  1  .f/abc_rc  l_invert  554D,  570D 

“  /cla_pot  35D,  52D,  87= 

“  /clb_pot  121D,  138D 

“  /output_rcl  669D,  685D 

“/sys_matrix_rcl  212D,  229D,  413 

c2.f/abc_rc2_invert  82  ID,  837D 

“  /output_rc2  101  ID,  1027D 

“  /sys_matrix_rc2  2 19D,  236D,  714 

inr2cf.^MAIN  102D,  118D 

smc  1  .f/abc_c  l_invert  300D,  3 1 6D 

“  /sys_matrix_cl  35D,  52D,  210 
d2_vrtp_cyl_a2 

c  1  .f/abc_rc  l_invert  555D,  57  ID 

“/cla_pot  36D,53D,90= 

“/clb_pot  122D,  139D 

“  /output_rcl  670D,  686D 

“/sys_matrix_rcl  213D,  230D,  416 

c2.f/abc_rc2_invert  822D,  838D 

“  /output_rc2  1012D,  1028D 

“  /sys_matrix_rc2  220D,  237D,  717 

mr2cf.^MAIN  103D,  119D 

smcl.f^abc_cl_invert  301D,  317D 
“  /sys_matrix_cl  36D,  53D,  213 
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Variables : 

Symbol  File/Subprogram  Line 


d2_vrtp_cyl_bl 

cl.f/abc_rcl_invert  556D,  572D 

“/cla_pot  37D,54D 

“/clb_pot  123D,  MOD,  174= 

“/output_rcl  671D,687D 

“  /sys_matiix_rcl  214D,  231D,  310 

c2.f/abc_rc2_invert  823D,  839D 

“/output_rc2  1013D,  1029D 

“  /sys_matrix_rc2  221D,  238D,  512 

mr2cf.£MAIN  104D,  120D 

smc  1  .fi^abc_c  l_invert  302D,  3 1 8D 

“  /sys_matrix_cl  37D,  54D,  138 
d2_vrtp_cyl_b2 

c  1  .f/abc_rc  l_invert  557D,  573D 

“/cla_pot  38D,55D 

“/clb_pot  124D,  141D,  177= 

“  /output_rc  1  672D,  688D 

“  /sys_matrix_rcl  215D,  232D,  3 13 

c2.f/abc_rc2_invert  824D,  840D 

“/output_rc2  1014D,  1030D 

“  /sys_matrix_rc2  222D,  239D,  515 

mr2cf.m^IAIN  105D,  121D 

smc  1  .f/abc_c  l_mvert  303D,  3 1 9D 

“  /sys_matrix_cl  38D,  55D,  141 
d2_vrtp_cy2_bl 

c2.f/abc_rc2_invert  859D,  877D 

“/c2b_pot  38D,55D,91= 

“/c2c_pot  129D,  147D 

“/output_rc2  1049D,  1067D 

“  /sys_matrix_rc2  260D,  278D,  498 

mr2cf.^MAIN  142D,  159D 

d2_vrtp_cy2_b2 

c2.f/abc_rc2_invert  860D,  878D 

“/c2b_pot  39D,56D,94= 

“/c2c_pot  130D,  148D 

“  /output_rc2  1050D,  1068D 

“ /sys_matrix_rc2  261D,  279D,  501 

mr2cf.^MAIN  143D,  160D 
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Variables : 

Symbol  File/Subprogram  Line 


d2_vrtp_cy2_cl 

c2.f/abc_rc2_invert  861D,  879D 
“/c2b_pot  40D,57D 

“  /c2c_pot  13  ID,  149D,  1 84= 

“  /output_rc2  105  ID,  1069D 

“  /sys_matrix_rc2  262D,  280D,  392 

mr2cf.f/MAIN  144D,  161D 

d2_vrtp_cy2_c2 

c2.f/abc_rc2_mvert  862D,  880D 
“/c2b_pot  41D,58D 

“/c2c_pot  132D,  150D,  187= 

“/output_rc2  1052D,  1070D 

“  /sys_matrix_rc2  263D,  28  ID,  395 

mr2cf.f/MAIN  145D,  162D 

d2_vrtp_rod  cl.£^abc_rcl_invert  582D,  588D 
“/output_rcl  697D,703D 

“/sys_matrix_rcl  241D,  247D,  423 

c2.f/abc_rc2_mvert  89  ID,  897D 

“/output_rc2  1080D,  1086D 

“  /sys_matrix_rc2  292D,  298D 

mr2cf.W^IAIN  69D,  73D 

rf.f/abc_rod_invert  210D,  216D 

“  /abc_rod_solve  160D,  166D 

“/output  273D,279D 

“/rod_pot  24D,29D,52= 

“  /sys_matrix_rod  73D,  79D,  1 16 

d2_vxp_cyl_al 

cl.f/abc_rcl_mvert  549D,  566D 
“/cla_pot  30D,48D,80= 

“/clb_pot  116D,  134D 

“  /output_rcl  664D,  681D 

“  /sys_matrix_rc 1  207D,  225D,  435 

c2.f/abc_rc2_invert  816D,  833D 

“/output_rc2  1006D,  1023D 

“  /sys_matrix_rc2  2 14D,  232D,  744 
mr2cf.^MAIN  97D,  114D 

smc  1  .f/abc_c  l_invert  295D,  3 1 2D 

“  /sys_matrix_cl  30D,  48D,  231 
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Variables : 

Symbol  File/Subprogram  Line 


d2_vxp_cyl_a2 

cl.f/abc_rcl_invert  550D,  567D 

“/cla_pot  31D,49D,83= 

“/clb_pot  117D,  135D 

“  /output_rcl  665D,  682D 

“  /sys_matrix_rc  1  208D,  226D,  438 

c2.f/abc_rc2_invert  817D,  834D 

“/output_rc2  1007D,  1024D 

“  /sys_matrix_rc2  215D,  233D,  747 

mr2cf.^MAIN  98D,  USD 

smc  1  .£^abc_c  l_invert  296D,  3 1 3D 

“ /sys_matrix_cl  31D,  49D,  234 
d2_vxp_cyl_bl 

c  1  .f/abc_rc  l_invert  55 1 D,  568D 

“/cla_pot  32D,50D 

“/clb_pot  118D,  136D,  167= 

“  /output_rcl  666D,  683D 

“  /sys_matrix_rc 1  209D,  227D,  33 1 

c2.f/abc_rc2_invert  818D,  835D 

“/output_rc2  1008D,  1025D 

“  /sys_matrix_rc2  2 1 6D,  234D,  547 

mr2cf.£MAIN  99D,  116D 

smc  1  .f/abc_c  l_invert  297D,  3 14D 

“  /sys_matiix_cl  32D,  50D,  156 
d2_vxp_cyl_b2 

c  1  .f/abc_rc  l_invert  552D,  569D 

“/cla_pot  33D,51D 

“  /clb_pot  1 19D,  137D,  170= 

“  /ouQ)ut_rcl  667D,  684D 

“  /sys_matrix_rcl  210D,  228D,  334 

c2.f/abc_rc2_invert  819D,  836D 

“  /output_rc2  1009D,  1026D 

“  /sys_matrix_rc2  2 1 7D,  235D,  550 

mr2cf.^AIN  lOOD,  117D 

smc  1  .f/abc_c  l_invert  298D,  3 1 5D 

“ /sys_matrix_cl  33D,  51D,  159 
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Variables : 

Symbol  File/Subprogram  Line 


d2_vxp_cy2_bl 

c2.f/abc_rc2_invert  854D,  873D 

“/c2b_pot  33D,51D,84= 

“  /c2c_pot  124D,  143D 

“  /output_rc2  1044D,  1063D 

“  /sys_matrix_rc2  255D,  274D,  529 

mr2cf.f/MAIN  137D,  155D 

d2_vxp_cy2_b2 

c2.f/abc_rc2_invert  855D,  874D 

“  /c2b_pot  34D,  52D,  87= 

“  /c2c_pot  125D,  144D 

“  /output_rc2  1045D,  1064D 

“  /sys_matrix_rc2  256D,  275D,  532 

inr2cf.f/MAIN  138D,  156D 

d2_vxp_cy2_cl 

c2.f/abc_rc2_invert  856D,  875D 

“/c2b_pot  35D,53D 

“  /c2c_pot  126D,  145D,  177= 

“  /output_rc2  1046D,  1065D 

“  /sys_matrix_rc2  257D,  276D,  421 

mr2cf.f(MAIN  139D,  157D 

d2_vxp_cy2_c2 

c2.f/abc_rc2_invert  857D,  876D 

“  /c2b_pot  36D,  54D 

“  /c2c_pot  127D,  146D.  180= 

“  /output_rc2  1047D,  1066D 

“  /sys_matrix_rc2  258D,  277D,  424 

mr2cf.mAIN  MOD,  158D 

d2_vxp_rod  cl.f/abc_rcl_invert  582D,  587D 
“  /output.rcl  697D,  702D 
“/sys_matrix_rcl  241D,  246D,  449 

c2.f/abc_rc2_invert  891D,  896D 

“  /output_rc2  1080D,  1085D 

“  /sys_matrix_rc2  292D,  297D 

mr2cf.f/MAIN  68D,  73D 

rf.f/abc_rod_invert  210D,  215D 

“  /abc_rod_solve  160D,  165D 

“  /output  273D,  278D 

“/rod_pot  24D,28D,48= 

“  /sys_matrix_rod  73D,  78D,  121 
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Variables : 

Symbol  File/Subprogram  Line 


d2cbessi  cbessl.f/dlcbessi  473D,  475= 
mr2cf.£^AIN  42D 

d2cbessj  cl.f^cla_pot  62D 

“/clb_pot  148D 

c2.f/c2b_pot  65D 

“/c2c_pot  158D 

cbessl.£/d2cbessj  343D,  346= 

mr2cf.£(MAIN  39D 

rf.f/rod_pot  34D 

d2cbessk  cbessl.f/d2cbessk  31 3D,  315= 

iiir2cf.f(MAIN  41D 

d2cbessy  cl.£^cla_pot  63D 

“/clb_pot  149D 

c2.f/c2b_pot  66D 

“  /c2c_pot  159D 

cbessl.f/d2cbessy  406D,  414=,  421=,  430=,  435=,  441= 

nu^cLfMAIN  40D 

djf  c2.£'abc_rc2_mvert  915D,  917D,  951=,  972= 

“  /output_rc2  1 104D,  1 106D 

“ /sys_matrix_rc2  315D,  317D 
fluids.^ifl_pot  25D,  27D 

“  /outputjf  102D,  104D,  116, 123 

mr2cf.W^IAIN  172D,  174D,  427 

smc  1  .£^abc_c  l_invert  34 1 D,  343D,  379=,  393= 

“  /sys_matrix_cl  77D,  79D 
deta  rf.f/abc_rod_solve  171D,  186=,  191, 192, 193 

dill  “  /output  286D,  3 12=,  314, 325=,  328 

dpp  cl.f/output_rcl  720D,  962=,  964, 1007=,  1008 
c2.f/output_rc2  1115D,  1360=,  1362, 1405=,  1406 

rf.f/output  286D,  409=,  411, 433=,  434 

e_lcyl  mr2cf.f/MAIN  25D,  199=,  209 

e_2cyl  “  /  “  26D,  222=,  232 

e_rod  “  /  “  22D,  182=,  189 

ec_cl  “/“  49D,  209=,  210, 211 

ec_c2  “  /  “  55D,  232=,  233, 234 

ec_rod  “  /  “  37D,  189=,  190, 191 

emt  “/“  19D,  271=,  294, 307, 351, 380, 419 
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Variables : 

Symbol  File/Subprogram  Line 


err  cl.f/output_rcl  720D,  912=,  914,  918, 956=,  958, 959=, 

962, 1000=,  1002, 1003=,  1006, 1007 
c2.f/output_rc2  1115D,  1310=,  1312, 1316, 1354=,  1356, 
1357=,  1360, 1398=,  1400, 1401=,  1404, 

1405 

rf.f/output  286D,  377=,  382, 386, 400=,  405, 406=, 

409, 423=,  428, 429=,  432, 433 

ett  cl  .f/output_rcl  720D,  889=,  891, 895, 982=,  984, 1006 

c2.f/output_rc2  1115D,  1287=,  1289, 1293, 1380=,  1382, 
1404 

rf.f/output  286D,  366=,  370, 373, 415=,  419, 432 

euler  cbessl.f/psi  40D,  41D,  45, 50 

exctype  cl.f/abc_rcl_invert  533D/*,  538D,  617, 628 


c2.f/abc_rc2_mvert  800D/*,  805D,  938, 959 

mr2cf.£ZMAIN 

19D,  270=,  316=,  356=,  388=,  433= 

rf.f('abc_rod_invert  201D/*,  206D,  244, 249 

“  /abc_rod_solve  152D/*,  156D,  176, 180 

smcl.£^abc_cl_: 

invert  279D/*,  284D,  366, 380 

exx 

cl.f/output_rcl  720D,  865=,  868,  872, 938=,  940, 941=, 

962, 962, 1006=,  1007, 1007 

c2.f/output_rc2 

ni5D,  1264=,  1266, 1270, 1336=,  1338, 

1339=,  1360, 1360, 1404=, 1405, 1405 

rf.f/output 

286D,  354=,  358, 362,  392=,  396, 397=, 

409, 409, 432=,  433, 433 

ez 

cbessLf/cbessj 

66D,76=,n5 

ez2 

((  j 

66D,77=,  104, 106, 108, 110, 117, 119, 

121 

f 

mr2cf.f/MAIN 

lOD,  294, 297 

f2 

fluids.f/ofl_pot 

67D,  78=,  79, 80 

fa 

mr2cf.f/MAIN 

lOD 

fac 

cbessLf/cbessi 

143D 

“  /cbessj 

60D 

“  /cbessk 

246D 

“  /cbessy 

169D 

“  /fac 

22D,  24=,  30= 

mr2cf.f/MAIN 

32D 

fo2 

cbessl.f/cbessj 

65D,  75=,  104, 104, 106, 106, 108, 108, 

no,  no,  115, 117, 117, 119, 119, 121, 
121 
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Variables : 

Symbol  File/Subprogram  Line 


g 

mr2cf.fMAIN 

22D,  280=,  346=,  376=,  414=,  468^ 
472=,  478 

gl 

fluids.f/ifl_pot 

37D,  40=,  42, 43 

g2 

“  /ofl_pot 

67D,  72=,  73, 74 

gamma 

cbessl.f/gamma  5D,  7=,  13= 

mr2cf.£^AIN 

32D 

h_lcyl 

j  c« 

25D,  204=,  214 

h_2cyl 

(C  j  u 

26D,  227=,  237 

i 

cbessl.f/fac 

22D,  27=,  28 

“  /gamma 

5D,  10=,  11 

cbessLf/psi 

39D,47=,48 

rf.f/minv 

459D,  463=,  465, 465, 469=,  471, 472, 
472, 477=,  478, 479, 481, 491, 492, 

500, 502, 502, 507, 507=,  510, 512=, 
513, 513, 514, 515, 515, 519=,  520, 
521, 523, 528=,  530, 530 

iflag  cl.f/abc_rcl_invert  603D,  607=,  610= 

c2.f/abc_rc2_invert  924D,  928=,  931= 
mr2cf.^AIN  32D,  282= 

rf.f/abc_rod_invert  23  ID,  235=,  237= 

“  /minv  448D/*,  455D,  533=,  552= 

smc  1  .f/abc_c  IJnvert  350D,  354=,  357= 

ifluid  c2.f^abc_rc2_invert  915D 

“/ouQ)ut_rc2  1104D 
“  /sys_matrix_rc2  3 1 5D 

fluids.Mfl_pot  27D 

“  /output_if  104D 

inr2cf.mriAIN  174D 

smcl.f^abc_cl_invert  34  ID 
“  /sys_matrix_cl  77D 
ifsc  c2.f/abc_rc2_invert  915D,  917D 

“  /output_rc2  •  1 104D,  1 106D 
“  /sys_matrix_rc2  315D,  317D,  686 

fluids.f/ifl_pot  25D,  27D,  43= 

“  /outputjf  102D,  104D,  116 

mr2cf.^MAIN  172D,  174D,  427 

smcl.f^abc_cl_invert  341D,343D 
“  /sys_matrix_cl  77D,  79D,  194 
in  mr2cf.£MAIN  8D 

ip  rf.f/minv  459D,  478=,  484=,  488, 490, 491 
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Variables : 

Symbol  File/Subprogram  Line 


iptmax  mr2cf.f/MAIN  17D,  18D,  22 

irow  rf.^imnv  459D,  481=,  482, 484, 485, 500=,  502, 

503, 503, 505 

j  cbessl.f^cbessi  143D,  154=,  155 

“  /cbessj  60D,  87=,  88 
“  /cbessk  246D,  266=,  267, 276=,  279 

“  /cbessy  169D,  194=,  195, 204=,  207 

rf.f/minv  459D,  464=,  465, 465, 470=,  47 1 , 472, 

472, 476=,  479, 482, 485, 501, 502, 

502, 505, 508, 508=,  510, 514=,  515, 

515, 520=,  521, 522, 523, 523, 529=, 

530, 530 

jcol  “  /  “  459D,  522=,  523, 523, 523 

jk  mr2cf.^MAIN  19D,  272=,  280,  346, 376, 414, 468, 

472,478 

jn  “  /  “  8D 

jrow  rf.^minv  459D,  489=,  490, 49 1,49 1,492, 501=, 

502, 503, 503 

k  cl.f/cla_pot  14D/*,  20D,  71, 79 

“  /clb_pot  lOOD/*,  106D,  157, 166 

“  /output_rc  1  649D/*,  654D,  725, 765, 767, 785, 788, 

799, 801,  825, 827, 844,  846, 859,  862, 

885, 887, 908, 910, 932, 935, 952, 954, 

978, 980, 996, 998 

“  /sys_matrix_rcl  191D/*,  197D,  269, 287, 289, 301, 303, 
305, 307, 337, 340, 362, 364, 388, 390, 

398, 404, 406, 408, 410, 418, 420, 441, 
444,452,467,469,475,489,491,497, 
503,505,517 

c2.f/abc_rc2_invert  956, 957, 977, 978 
“/c2b_pot  17D/*,  23D,  75, 83 

“  /c2c_pot  107D/*,  113D,  167, 176 

“  /output_rc2  991D/*,  996D,  1121, 1164, 1166, 1184, 
1187, 1198, 1200, 1224, 1226, 1243, 

1245, 1258, 1261, 1283, 1285, 1306, 

1308,  1330, 1333, 1350, 1352, 1376, 

1378, 1394,  1396 
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Symbol  File/Subprogram  Line 


“  /sys_matrix_rc2  198D/*,  204D,  335,  359, 360, 362,  363, 
383,  385,  387,  389, 427, 430, 463,  465, 

479, 481, 489, 491, 493, 495, 503,  505, 

507, 509, 535, 538,  553, 556, 573,  575, 

585,  587, 603, 605,  615, 617, 625,  627, 

639,  641, 682, 684, 705, 707, 709,  711, 

750, 753, 783, 785 

cbessLf/cbessi  143D,  153=,  154, 155, 155 
“  /cbessj  60D,  86=,  87, 88, 88 
“  /cbessk  246D,  265=,  266, 267, 267, 275=,  276, 

277, 278, 279, 279 

“  /cbessy  169D,  193=,  194, 195, 195, 203=,  204, 

205, 206, 207, 207 
flmds.Mfl_pot  14D/*,  19D,  39 

“  /ofl_pot  52D/*,  55D,  70, 72, 78 

“  /outputjf  91D/*,  96D 

“  /output_of  134D/*,  139D 

mr2cf.f/MAIN  21D,  264=,  284, 294, 310=,  311=,  312=, 

313=,  314=,  321=,  322=,  326=,  327=, 

332=,  338=,  353=,  354=,  355=,  360=, 

361=,  366=,  368=,  382=,  383=,  384=, 

385=,  386=,  392=,  393=,  397=,  398=, 

403=,  406=,  421=,  422=,  423=,  424=, 

425=,  430=,  431=,  440=,  441=,  445=, 

446=,  450=,  451=,  456=,  460=,  480 
rf.f^minv  459D,  536= 

“  /output  264D/*,  269D,  290, 3 17, 329, 336, 343, 

349, 355, 356, 368,  380, 393, 394, 403, 

417, 426 

“  /rod_pot  14D/*,  20D,  41, 47 

“  /sys_matrix_rod  64D/*,  69D,  99, 109, 111,1 13, 125, 141 
smcl.^abc_cl_invert  377, 378, 391, 392 
“  /sys_matrix_cl  14D/*,  20D,  95, 117, 118, 120, 121, 

129, 131, 133, 135, 162, 165, 190,  192, 

201, 203, 205, 207, 237, 240, 260,  262 


178 


TD  11,065 


Variables : 

Symbol  File/Subprogram  Line 


k2  cl.f/output_rcl  719D,  725=,  753, 757, 778, 782,  855, 

928 

“  /sys_matrix_rc  1  263D,  269=,  276, 279, 309,  3 12,  377, 

380,  393,412,415,422 

c2.f/output_rc2  1114D,  1121=,  1152, 1156, 1177, 1181, 

1254, 1326 

“  /sys_matrix_rc2  325D,  335=,  344, 348, 39 1 , 394, 452, 

455, 468, 471, 497, 500, 511, 514, 671, 

674, 713, 716 

rf.f/output  285D,  290=,  313, 326, 329, 354, 392 

“  /sys_matrix_rod  94D,  99=,  104, 115 

smcl.f/sys_matrix_cl  87D,  95=,  102, 106, 137, 140, 179, 182, 
209, 212 

k2_sp_cyl_a2  cl.f/ou^ut_rcl  857,930 

k2_sp_cy2_b2  c2.f/output_rc2  1256, 1328 

kn  mr2cf.f/MAIN  8D 

1  cbessLf/cbessk  246D,  277=,  279 
“  /cbessy  169D,  205=,  207 

12gcl  cL^output.rcl  721D,731=,751,755 

“  /sys_matrix_rc  1  262D,  270=,  275, 278, 376, 379 

c2.f/output_rc2  1117D,  1127= 

“  /sys_matrix_rc2  324D,  336=,  467, 470, 670, 673 

smcl.f^sys_matrix_cl  86D,  96=,  101, 105, 178, 181 
12gc2  c2.f/output_rc2  1117D,  1128=,  1150, 1154 

“/sys_matrix_rc2  324D,  337=,  343, 347, 451, 454 

12gr  cl.£^sys_matrix_rcl  262D,  271=,  392 
lame_cl  cLf^abc_rcl_invert  559D,  574D 
“/cla_pot  40D,56D 

“/clb_pot  126D,  142D 

“  /output_rcl  674D,  689D,  731, 751, 752, 755, 756, 
777,778,778,781,782,782 

“  /sys_matrix_rcl  217D,  233D,  270, 275, 276, 278, 279, 

376, 377, 379, 380 
c2.f/abc_rc2_mvert  826D,  84  ID 

“  /output_rc2  1016D,  103  ID,  1 127 

“  /sys_matrix_rc2  224D,  240D,  336, 467, 468, 470, 471, 

670, 671, 673, 674 

mr2cf.f/MAIN  107D,  122D,  210=,  212 

smcl.£^abc_cl_invert  305D,  320D 
“  /sys_matrix_cl  40D,  56D,  96, 101, 102, 105, 106, 178, 
179, 181, 182 
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Variables : 

Symbol 

File/Subprogram 

Line 

lame_c2 

c2.f/abc_rc2_invert 

864D,  88  ID 

“  /c2b_pot  43D,  59D 

“/c2c_pot  134D,  151D 

“  /output_rc2  1054D,  1071D,  1128, 1150, 1151, 1154, 
1155, 1176, 1177, 1177, 1180, 1181, 

1181 

“  /sys_matrix_rc2  265D,  282D,  337,  343, 344, 347,  348, 
451, 452, 454, 455 

mr2cf.mAIN  147D,  163D,  233=,  235 

laine_rod  cl.f/abc_rcl_invert  583D,  589D 

“  /output.rcl  698D,  704D,  1006, 1006 
“  /sys_matrix_rc 1  242D,  248D,  27 1 ,  392, 393 

c2.f/abc_rc2_invert  892D,  898D 

“  /output_rc2  108  ID,  1087D,  1404, 1404 

“  /sys_matrix_rc2  293D,  299D 

mr2cf.f/MAIN  70D,  74D,  190=,  192 

rf.f/abc_rod_invert  211D,  217D 

“  /abc_rod_solve  161D,  167D 

“  /output  274D,  280D,  3 14, 328, 432, 432 

“/rod_pot  25D,30D 

“  /sys_matrix_rod  74D,  80D,  102, 103, 104 
limit  cbessLf/cbessi  143D,  150=,  153 
“  /cbessj  60D,  81=,  86 
“  /cbessk  246D,  263=,  275 

“  /cbessy  169D,  191=,  203 

m  “  /cbessk  246D,  278=,  279 

“  /cbessy  169D,  206=,  207 

m_of  cl.f^abc_rcl_invert  595D,  597D,  627=,  638= 

“  /output_rcl  710D,  712D 

“  /sys_matrix_rc 1  254D,  256D 

c2.f/abc_rc2_invert  904D,  906D,  952=,  973= 

“/output_rc2  1093D,  1095D 

“  /sys_matrix_rc2  305D,  307D 

fluids.f/ofl_pot  6 ID,  63D 

“  /output_of  145D,  147D,  158, 165 

mr2cf.^MAIN  82D,  84D,  334, 367, 404, 435, 458 

rf.f/abc_rod_invert  223D,  225D,  248=,  253= 

“  /sys_matrix_rod  86D,  88D 

smcl.^abc_cl_invert  330D,  332D,  373=,  387= 

“  /sys_matrix_cl  66D,  68D 
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Variables : 

Symbol  File/Subprogram 

Line 

mains 

mr2cf.f/MAIN 

8D,  284= 

maxpiv 

rf.f'minv 

460D,  479=,  483, 485=,  495 

msg 

mr2cf.f/MAE^ 

lOD,  286=,  288, 488 

mu_lcyl 

((  j 

25D,  201=,  210, 210, 210, 211 

mu_2cyl 

CC  !  ii 

26D,  224=,  233, 233, 233, 234 

mu_rod 

20D,  183=,  190, 190, 190, 191 

n  cl.f/abc_rcl_invert  533D/*,  538D 

“  /cla_pot  14D/*,  19D,  72, 73, 74, 75, 76, 77, 80, 

81,  82,  83,  84, 85,  87, 88,  89, 90, 91, 

92 

“  /clb_pot  lOOD/*,  105D,  158, 159, 160, 161, 162, 

163, 167, 168, 169, 170, 171, 172, 174, 

175, 176, 177, 178, 179 

“  /output_rcl  649D/*,  653D,  723, 759, 762, 786, 789, 
804, 807,  817, 819, 840, 842, 860,  863, 

881, 881,  883, 883, 885, 887, 904, 906, 

933, 936, 948, 950, 974, 974, 976, 976, 

978, 980, 992, 994 

“  /sys_matrix_rcl  191D/*,  196D,  268, 281, 284, 305, 307, 
309, 310, 312, 313, 325, 328, 338, 341, 

358, 360, 382, 385, 395, 408, 410, 412, 

413, 415, 416, 420, 422, 423, 429, 432, 

442, 445, 447, 453, 463, 465, 473, 481, 
483,493,511,514, 521 

c2.f/abc_rc2_invert  800D/*,  805D,  954, 955, 975, 976 

“  /c2b_pot  17D/*,  22D,  76, 77, 78, 79, 80, 81, 84, 

85,  86, 87,  88, 89, 91, 92, 93, 94, 95, 

96 

“  /c2c_pot  107D/*,  112D,  168, 169, 170, 171, 172, 

173, 177, 178, 179, 180, 181, 182, 184, 

185,  186, 187,  188, 189 

“  /output_rc2  991D/*,  995D,  1119,  1158, 1161, 1185, 
1188, 1203, 1206, 1216, 1218, 1239, 

1241, 1259, 1262, 1279, 1279, 1281, 

1281,  1283, 1285, 1302, 1304, 1331, 

1334, 1346, 1348, 1372, 1372, 1374, 

1374, 1376, 1378, 1390, 1392 
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Symbol  File/Subprogram  Line 


“  /sys_matrix_rc2  198D/*,  203D,  334,  351, 353, 355,  357, 
387, 389, 391,  392,  394, 395, 415, 418, 

428, 431, 457, 460, 473, 476, 493, 495, 

497, 498, 500, 501,  507, 509, 511, 512, 

514, 515, 523, 526,  536, 539, 541, 544, 

554, 557, 569, 571, 581, 583, 595, 597, 

607,  609, 633, 636, 647, 649, 676,  679, 

709, 711, 713, 714, 716, 717, 738, 741, 
751,754, 779, 781 

cbessLf/cbesshl  483D/*,  486D,  489, 489 


/cbessh2 

497D/*,499D,503, 503 

/cbessi 

141D/*,  143D,  149 

«« 

/cbessj 

58D/*,  60D,  71, 75, 93,  126, 127 

/cbessk 

244D/*,  246D,  255 

it 

/cbessy  167D/*,  169D,  179, 216, 225, 225, 226, 

226, 226, 227, 229, 229, 229, 230, 232, 

233 

iC 

/dlcbesshl 

511D/*,512D,517,518 

/dlcbessh2 

526D/*,  527D,  532, 533 

it 

/dlcbessi 

453D/*,  457D,  460, 460, 460 

tt 

/dl  cbessj 

323D/*,  327D,  330, 330, 330 

tt 

/dlcbessk 

293D/*,  297D,  300, 300, 300 

tt 

/dlcbessy 

356D/*,  360D,  365, 369, 374, 382, 386 

tt 

/d2cbessi 

468D/*,  472D 

tt 

/d2cbessj 

338D/*,  342D,  346, 347, 347 

tt 

/d2cbessk 

308D/*,  312D 

tt 

/d2cbessy 

401D/*,  405D,  411, 416, 423, 433, 438 

tt 

/fac 

21D/*,  22D,  23, 23, 26, 27, 28 

tt 

/gamma 

4D/*,  5D,  6, 6, 9, 10, 11 

tt 

/psi 

38D/*,  39D,43 

fluids.£rifl_pot 

14D/*,  18D,42,43 

tt 

/ofl_pot 

52D/*,  54D,  73, 74, 79,  80 

tt 

/output_if 

91D/*,  95D 

tt 

/output_of 

134D/*,  138D 
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Symbol  File/Subprogram  Line 


mr2cf.f/MAIN  19D,  268=,  299, 310=,  311=,  312=,  313=, 

314=,  316=,  321=,  322=,  326=,  327=, 

332=,  338=,  353=,  354=,  355=,  360=, 

361=,  366=,  368=,  382=,  383=,  384=, 

385=,  386=,  388=,  392=,  393=,  397=, 

398=,  403=,  406=,  421=,  422=,  423=, 

424=,  425=,  430=,  431=,  433=,  440=, 

441=,  445=,  446=,  450=,  451=,  456=, 

460= 

rf.f/abc_rod_invert  23  ID,  234=,  237= 

“  /minv  448D/*,  455D,  456, 456, 456, 456, 456, 

456, 463, 464, 469, 470, 471, 472, 481, 

489, 500, 501, 510, 510, 512, 514, 519, 

522, 528, 529, 530 

“  /output  264D/*,  268D,  288, 315, 316,  330,  337, 

342, 348, 356, 367, 367, 368, 378, 379, 

394, 401, 402, 416, 416, 417, 424, 425 
“  /rod_pot  14D/*,  19D,  42, 43, 44, 48, 49, 50,  52, 

53,54 

“  /sys_matrix_rod  64D/*,  68D,  98, 106, 107, 113, 115, 

116, 118, 118, 125, 139 

smcl.£^abc_cl_invert  279D/*,  284D,  375, 376,  389,  390 
“  /sys_matrix_cl  14D/*,  19D,  94, 109,  111,  113, 115, 

133, 135, 137, 138, 140, 141, 150, 153, 

163, 166, 184, 187, 205, 207, 209, 210, 

212, 213, 225, 228, 238, 241, 256, 258 
n2  cl.f/output_rcl  718D,  723=,  752, 756, 778, 782, 877, 

879, 970, 972 

“  /sys_matrix_rcl  264D,  268=,  276, 279, 332, 335, 377, 
380,393,436,439.450 

c2.f/output_rc2  1113D,  1119=,  1151, 1155, 1177, 1181, 
1275, 1277, 1368, 1370 

“  /sys_matrix_rc2  326D,  334=,  344, 348, 422, 425, 452, 

455, 468, 471, 530, 533, 548, 551,  671, 

674, 745, 748 

rf.f/output  284D,  288=,  313, 326, 366, 415 

“  /sys_matrix_rod  95D,  98=,  104, 122 

smcl.£^sys_matrix_cl  88D,  94=,  102, 106, 157, 160, 179, 182, 
232, 235 


183 


TD  11,065 


Variables : 

Symbol  File/Subprogram  Line 


na 

cbessl.f/cbessi 

143D,  149=,  154, 158 

“  /cbessj 

60D,  71=,  87, 91, 94 

“  /cbessk 

246D,  255=,  265, 266, 271, 273, 273, 

277, 278, 283, 283 

“  /cbessy 

169D,  179=,  193, 194, 199, 201, 205, 

206,211,217 

“  /psi  39D,43=,44,47 

no 

cl.f/output_rcl 

719D,  728=,  962, 1007 

c2.f/output_rc2 

1114D,  1124=,  1360, 1405 

rf.f/output 

285D,  293=,  409, 433 

ofluid 

cl.£^abc_rcl_invert  597D 

“  /ou^ut_rcl 

710D 

“  /sys_inatrix_rcl 

254D 

c2.f/abc_rc2_invert 

906D 

“  /output_rc2 

1095D 

“  /sys_matrix_rc2 

305D 

fluids.f/ofi_pot 

61D 

“  /output_of 

145D 

mr2cf.fMAIN 

84D 

rf.f/abc_rod_invert  225D 
“  /sys_matrix_rod  86D 
smcl.f^abc_cl_mvert  332D 
“  /sys_matrix_cl  66D 
ofsc  cl.f/abc_rcl_invert  595D,  597D 
“/output.rcl  710D,712D 
“  /sys_matrix_rcl  254D,  256D,  297 

c2.f/abc_rc2_mvert  904D,  906D 

c2.f/output_rc2  1093D,  1095D 

“/sys_matrix_rc2  305D,  307D,  345, 349, 353, 357, 360, 


363 

fliiids.f/ofl_pot 
“  /output_of 
mr2cf.£/MAIN 
rf.f/abc_rod_invert 
“  /sys_matrix_rod 
smc  1  .f/abc_c  l_invert 
“  /sys_matrix_cl 


61D,  63D,  74=,  80= 

145D,  147D,  158 

82D,  84D,  334, 367, 404, 435, 458 
223D,  225D 
86D,  88D,  130 
330D,  332D 

66D,  68D,  103, 107,  111,  115, 118, 121 
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Variables : 

Symbol  File/Subprogram  Line 


om  cl.f/cla_pot  14D/*,20D,71,79 

“  /clb_pot  lOOD/*,  106D,  157, 166 

“  /sys_matrix_rcl  192D/*,  197D,  297 
c2.f/c2b_pot  17D/*,  23D,  75,  83 

“  /c2c_pot  107D/*,  113D,  167, 176 

“  /sys_matrix_rc2  199D/*,  204D,  345, 349,  353, 357, 360, 
363, 686 

fluids.f/ifl_pot  14D/*,  19D,  39 

“  /ofl_pot  52D/*,  55D,  70, 72, 78 
“  /output_if  91D/*,96D,  116, 123 

“  /output_of  134D/*,  139D,  158, 165 

mr2cf.^AIN  21D,  265=,  284, 297=,  310=,  311=,  312=, 

313=,  315=,  321=,  322=,  326=,  332=, 

338=,  353=,  354=,  355=,  360=,  366=, 

368=,  382=,  383=,  384=,  385=,  386=, 

392=,  397=,  403=,  406=,  421=,  422=, 

423=,  424=,  425=,  430=,  431=,  440=, 

441=,  445=,  450=,  456=,  460=,  480 
rf.f/rod_pot  14D/*,  20D,  41, 47 

“  /sys_matrix_rod  64D/*,  69D,  130 
smcl.f^sys_matrix_cl  15D/*,  20D,  103, 107,  111,  115, 118, 
121, 194 

p  cl.f/cla_pot  67D,71=,72,73,74,75,76,77 

“  /clb_pot  153D,  157=,  158, 159, 160, 161, 162, 

163 

c2.f/c2b_pot  71D,75=,76,77,78,79,80,81 
“  /c2c_pot  163D,  167=,  168, 169, 170, 171, 172, 

173 

rf.f/rod_pot  38D,  41=,  42, 43, 44 

pll  cl.^output_rcl  719D,  729=,  962, 1007 

c2.f/output_rc2  1114D,  1125=,  1360, 1405 

rf.f/output  285D,  294=,  409, 433 

pl2  cl.f/output_rcl  719D,  730=,  962, 962, 1007, 1007 

c2.f/output_rc2  1114D,  1126=,  1360, 1360, 1405, 1405 

rf.f/output  285D,  295=,  409, 409, 433, 433 

parti  cbessLf/cbessk  248D,  258=,  271=,  285 

“  /cbessy  171D,  186=,  199=,  213 

part2  “  /cbessk  248D,  259=,  273=,  285 

“  /cbessy  171D,  187=,  201=,  213 

part3  “  /cbessk  248D,  260=,  283=,  285 

“  /cbessy  171D,  188=,  211=,  213 
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Variables : 

Symbol  File/Subprogram  Line 


pi 


ps 

psi 


q 


r 


“  /cbessj  61D,  68D,  126, 126, 127, 127, 127 
“  /cbessk  247D,  25  ID 

“  /cbessy  170D,  175D,  199, 201, 211, 232, 232, 

232, 233, 233 

fluids.f/output_if  HID,  116=,  118 

“  /output_of  153D,  158=,  160 

cbessLf/cbessk  247D 
“  /cbessy  170D 

“  /psi  40D,  45=,  50= 

inr2cf.f/MAIN  33D 

cLf/cla_pot 

“/clb_pot 

c2.f/c2b_pot 

“/c2c_pot 

rf.f/rod_pot 
cl.f/cla_pot 


“/clb_pot 


“  /output_rc 1  649D/*,  654D,  724, 752, 756, 759, 760, 

762, 763, 777, 781, 786, 789, 804,  807, 

817,  819, 840, 842,  860, 863, 877,  879, 

881,  883, 885, 887, 904, 904, 906, 906, 

933, 936, 948, 948, 950, 950, 970, 972, 

974, 976, 978, 980, 992, 992, 994, 994 
c2.f/c2b_pot  17D/*,  23D,  76, 77, 78, 79, 80, 81, 84, 

85,  86, 87, 88, 89, 91, 92, 93, 94, 95, 

96 

“  /c2c_pot  107D/*,  113D,  168, 169, 170, 171, 172, 

173, 177, 178, 179, 180, 181, 182, 184, 
185,186,187,188,189 


67D,  79=,  80,  81,  82,  83, 84,  85,  87, 
88,  89, 90, 91, 92 

153D,  166=,  167, 168, 169, 170, 171, 

172. 174. 175. 176. 177. 178. 179 

71D,  83=,  84,  85, 86,  87, 88,  89, 91, 
92, 93, 94, 95, 96 

163D,  176=,  177, 178, 179, 180, 181, 
182, 184, 185,  186, 187,  188,  189 
38D,  47=,  48, 49, 50, 52, 53, 54 
14D/*,  20D,  72, 73, 74, 75, 76, 77,  80, 
81,  82, 83,  84, 85,  87, 88, 89, 90, 91, 

92 

lOOD/*,  106D,  158, 159, 160, 161, 162, 
163, 167, 168, 169, 170, 171, 172, 174, 

175. 176. 177. 178. 179 
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Variables : 

Symbol  File/Subprogram  Line 


“  /output_rc2  991D/*,  996D,  1 120, 1151,1 155, 1158, 
1159, 1161, 1162, 1176, 1180, 1185, 

1188, 1203, 1206, 1216, 1218, 1239, 

1241, 1259, 1262, 1275, 1277, 1279, 

1281, 1283, 1285, 1302, 1302, 1304, 

1304, 1331, 1334, 1346, 1346, 1348, 

1348, 1368, 1370, 1372,  1374, 1376, 

1378, 1390, 1390, 1392,  1392 


cbessLf/cbesshl 

4830/*,  4840, 489, 489 

it 

/cbessh2 

4970/*,  4980, 503, 503 

n 

/cbessi 

1410/*,  1440, 148 

/cbessj 

580/*,  610, 70 

/cbessk 

2440/*,  2470, 253, 273 

iC 

/cbessy 

1670/*,  1700, 177, 201 

/dlcbesshl 

5110/*,  5130, 517, 518 

/dlcbessh2 

5260/*,  5280, 532, 533 

/dlcbessi 

4530/*,  4550, 460, 460, 460 

/dlcbessj 

3230/*,  3250, 330, 330, 330 

«« 

/dlcbessk 

2930/*,  2950, 300, 300, 300 

/dlcbessy 

3560/*,  3580, 367,  371, 371, 371, 372, 

372, 376,  376, 376, 377, 377, 378, 378, 
379, 384,  384, 384, 388, 388, 388, 389, 
389 


“  /d2cbessi  468D/*,  470D 

“  /d2cbessj  338D/*,  340D,  346, 347, 347 

“  /d2cbessk  308D/*,  310D 

“  /d2cbessy  401D/*,  403D,  413, 413, 413, 414, 414, 

418, 418, 418, 419, 419, 420, 420, 421, 

425, 425, 425, 426, 426, 427, 427, 428, 

428, 429, 429, 429, 430, 430, 435, 435, 

435, 436, 436, 440, 440, 440, 441, 441, 
441,442 

fluids.f/ifl_pot  14D/*,  19D,  42, 43 

“  /ofl_pot  52D/*,  550,73,74,79, 80 
“  /output_if  91D/*,  96D 
“  /output.of  1340/*,  1390 

mr2cf.f/MAIN  200, 267=,  299, 318, 321=,  322=,  324, 

324, 326=,  327=,  330, 332=,  338=,  358, 

360=,  361=,  364, 366=,  368=,  390, 392=, 
393=,  395, 395, 397=,  398=,  401, 403=, 
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Variables : 

Symbol  File/Subprogram  Line 


406=,  437, 440=,  441=,  443, 443, 445=, 

446=,  448, 448, 450=,  451=,  454, 456=, 

460= 

rf.f/output  264D/*,  269D,  289, 3 12, 3 16, 325,  330, 

337,  337, 342, 348,  356, 366, 367,  368, 

379, 394, 402, 415, 416, 417, 425 
“  /rod_pot  14D/*,  20D,  42, 43, 44, 48, 49, 50, 52, 

53,54 

r2  cl.f/output_rcl  719D,  724=,  753, 757, 778, 782, 877, 

879,881,883,970,972,974,976 
c2.f/output_rc2  1114D,  1120=,  1152, 1156, 1177, 1181, 
1275, 1277, 1279, 1281, 1368, 1370, 

1372, 1374 

rf.f/output  285D,  289=,  313, 315, 326,  366, 367, 

378,401,415,416,424 

r.lcyl  nir2cf.f/MAIN  25D,  203=,  212, 213 
r_2cyl  “  /  “  26D,  226=,  235, 236 

r_rod  “  /  “  20D,  184=,  192, 193 

ri  c2.f/sys_matrix_rc2  199D/*,  204D,  686 

fluids.f/output_if  91D/*,  96D,  116 
mr2cf.frMAIN  23D,  278=,  3 15=,  322=,  432=,  441= 

smcl.£^sys_matrix_cl  15D/*,  20D,  194 
ro  cl.f^sys_matrix_rcl  192D/*,  197D,  297 

c2.f/sys_matrix_rc2  199D/*,  204D,  345, 349,  353, 357,  360, 
363 

fluids.£^output_of  134D/*,  139D,  158 
mr2cf.m\]N  21D,  275=,  315=,  338=,  355=,  368=, 

386=,  406=,  431=,  460= 
rf.f/sys_matrix_rod  64D/*,  69D,  130 

smcl.^sys_matrix_cl  15D/*,  20D,  103, 107,  111,  115,  118, 
121 
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Variables : 

Symbol  File/Subprogram  Line 


rod  cl.f/abc_rcl_invert  581D 
“  /output_rcl  696D 
“/sys_matrix_rcl  240D 
c2.f/abc_rc2_invert  890D 
“  /output_rc2  1079D 
“ /sys_matrix_rc2  291D 
mr2cf.^MAIN  72D 

rf.f/abc_rod_invert  209D 
“ /abc_rod_solve  159D 
“  /ouQ>ut  272D 

“/rod_pot  23D 

“  /sys_matrix_rod  72D 
si  “/minv  460D,  482=,  483 

shear_cl  cl.f^abc_rcl_invert  559D,  574D 
“/cla_pot  40D,56D 

“/clb_pot  126D,  142D 

“  /output.rcl  674D,  689D,  731, 759, 762, 765, 767, 
779, 783, 786, 789 

“  /sys.matrix^rcl  217D,  233D,  270,  281, 284, 287, 289, 
301, 303, 305, 307, 309, 312, 325,  328, 

331, 334, 337, 340, 382, 385, 388,  390, 

404, 406, 408, 410, 412, 415, 429, 432, 
435,438,441,444 
c2.f/abc_rc2_invert  826D,  841D 

“  /output_rc2  1016D,  103  ID,  1 127 
“  /sys_matrix_rc2  224D,  240D,  336, 473, 476, 479, 481, 

503, 505, 507, 509, 511, 514, 541, 544, 

547, 550, 553, 556, 676, 679, 682,  684, 

705, 707, 709, 711, 713, 716, 738, 741, 

744, 747, 750, 753 

mr2cf.^MAIN  107D,  122D,  211=,  212, 213 

smcLf/abc_cl_invert  305D,  320D 
“  /sys_matrix_cl  40D,  56D,  96, 109, 113, 117, 120, 129, 
131, 133, 135, 137, 140, 150, 153, 156, 

.  159, 162, 165, 184, 187, 190, 192, 201, 

203, 205, 207, 209, 212, 225, 228, 231, 

234, 237,  240 
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Variables : 

Symbol 

File/Subprogram 

Line 

shear_c2 

c2.f/abc_rc2_invert 

864D,  88  ID 

“/c2b_pot  43D,59D 

“/c2c_pot  134D,  151D 

“  /output_rc2  1054D,  1071D,  1128, 1158, 1161, 1164, 
1166, 1178, 1182, 1185,  1188 

“  /sys_matrix_rc2  265D,  282D,  337, 351, 355, 359, 362, 
383, 385, 387, 389, 391, 394, 415, 418, 

421, 424, 427, 430, 457, 460, 463, 465, 

489, 491, 493, 495, 497, 500, 523, 526, 

529, 532, 535, 538 

inr2cf.m\IN  147D,  163D,  234=,  235, 236 

shear_rod  cl.£^abc_rcl_invert  583D,  589D 
“  /output_rcl  698D,  704D,  1006 

“  /sys_matrix_rcl  242D,  248D,  271, 395, 398, 418, 420, 
422, 447, 449, 452 
c2.f/abc_rc2_mvert  892D,  898D 

“  /output_rc2  108  ID,  1087D,  1404 

“  /sys_matrix_rc2  293D,  299D 

mr2cf.m^AIN  70D,  74D,  191=,  192, 193 

rf .f/abc_rod_invert  2 1 1 D,  2 1 7D 

“/abc_rod_solve  161D,  167D 

“  /output  274D,  280D,  3 14, 328, 432 

“/rod_pot  25D,30D 

“  /sys_matrix_rod  74D,  80D,  102, 106, 107, 109,  111,  113, 
115, 118, 121, 125 
si  inr2cf.fiMAIN  9D 

size  cl.f/abc_rcl_invert  603D,  606=,  610= 

c2.f/abc_rc2_invert  924D,  927=,  931= 

inr2cf.f/MAIN  32D,  281= 

smcl,£/abc_cl_invert  350D,  353=,  357= 
sm  inr2cf.f/MAIN  34D,  355=,  356= 

rf.f/abc_rod_invert  201D/*,  207D,  237= 

“  /abc_rod_solve  152D/*,  157D,  177, 177, 177, 177, 178, 

178, 178, 178, 179, 179, 179, 179, 181, 

181. 181. 181. 182. 182. 182. 182. 183, 

183. 183,  183,  186, 186,  186, 187, 187, 

187, 187, 187,  187, 188,  188, 188, 188, 

188, 188, 189, 189, 189 

“  /sys_matrix_rod  64D/*,  70D,  102=,  106=,  109=,  111=, 

113=,  115=,  118=,  121=,  124=,  130=, 

133=,  135=,  137=,  139=,  141=,  143= 
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Variables : 

Symbol  File/Subprogram  Line 


smcl  mr2cf.f/MAIN  59D,  315=,  316= 

smcL:^abc_cl_invert  279D/*,  286D,  357= 

“  /sys_matrix_cl  15D/*,  21D,  101=,  105=,  109=,  113=, 
117=,  120=,  123=,  129=,  131=,  133=, 

135=,  137=, 140=,  143=,  150=,  153=, 

156=,  159=,  162=,  165=,  168=,  178=, 

181=,  184=,  187=,  190=,  192=,  194=, 

201=,  203=,  205=,  207=,  209=,  212=, 

215=,  225=,  228=,  231=,  234=,  237=, 

240=,  243=,  252=,  254=,  256=,  258=, 

260=,  262=,  264= 

smclinv  nir2cf.f/MAIN  59D 

smcl.£'abc_cl_invert  351D,  357=,  367, 368, 369, 370,  371, 
372, 379, 381, 382, 383, 384, 385, 386, 

393 

sminv  mr2cf.f/MAIN  35D 

rf.f^abc_rod_invert  232D,  237=,  245, 246, 247, 248, 250, 
251,252, 253 

smrcl  cl.f^abc_rcl_invert  533D/*,  540D,  610= 

cl.f/sys_matrix_rcl  192D/*,  198D,  275=,  278=,  281=,  284=, 

287=,  289=,  291=,  293=,  295=,  297=, 

301=,  303=,  305=,  307=,  309=,  312=, 

315=,  317=,  319=,  321=,  325=,  328=, 

331=,  334=,  337=,  340=,  343=,  345=, 

347=,  349=,  354=,  356=,  358=,  360=, 

362=,  364=,  366=,  368=,  370=,  372=, 

376=,  379=,  382=,  385=,  388=,  390=, 

392=,  395=,  398=,  400=,  404=,  406=, 

408=,  410=,  412=,  415=,  418=,  420=, 

422=,  425=,  429=,  432=,  435=,  438=, 

441=,  444=,  447=,  449=,  452=,  455=, 

459=,  461=,  463=,  465=,  467=,  469=, 

471=,  473=,  475=,  477=,  481=,  483=, 

485=,  487=,  489=,  491=,  493=,  495=, 

497=,  499=,  503=,  505=,  507=,  509=, 

511=,  514=,  517=,  519=,  521=,  524= 

-  nir2cf.^MAIN  48D,  387=,  388= 

smrclinv  cl.£^abc_rcljnvert  604D,  610=,  618, 619, 620, 621, 622, 

623, 624, 625, 626, 627, 629, 630, 631, 

632, 633, 634, 635, 636, 637, 638 
mr2cf.fi'MAIN  48  b 
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Variables : 

Symbol 

File/Subprogram 

Line 

smrc2 

c2.£^abc_rc2_invert 

800D/*,  807D,  931= 

“  /sys_matrix_rc2  199D/*,  205D,  343=,  347=,  351=,  355=, 
359=,  362=,  365=,  367=,  369=,  37 1=, 

373=,  375=,  377=,  383=,  385=,  387=, 

389=,  391=,  394=,  397=,  399=,  401=, 

403=,  405=,  407=,  409=,  415=,  418=, 

421=,  424=,  427=,  430=,  433=,  435=, 

437=,  439=,  441=,  443=,  445=,  451=, 

454=,  457=,  460=,  463=,  465=,  467=, 

470=,  473=,  476=,  479=,  481=,  483=, 

489=,  491=,  493=,  495=,  497=,  500=, 

503=,  505=,  507=,  509=,  511=,  514=, 

517=,  523=,  526=,  529=,  532=,  535=, 

538=,  541=,  544=,  547=,  550=,  553=, 

556=,  559=,  565=,  567=,  569=,  571=, 

573=,  575=,  577=,  579=,  581=,  583=, 

585=,  587=,  589=,  595=,  597=,  599=, 

601=,  603=,  605=,  607=,  609=,  611=, 

613=,  615=,  617=,  619=,  625=,  627=, 

629=,  631=,  633=,  636=,  639=,  641=, 

643=,  645=,  647=,  649=,  651=,  658=, 

660=,  662=,  664=,  666=,  668=,  670=, 

673=,  676=,  679=,  682=,  684=,  686=, 

693=,  695=,  697=,  699=,  701=,  703=, 

705=,  707=,  709=,  711=,  713=,  716=, 

7 19=,  726=,  728=,  730=,  732=,  734=, 

736=,  738=,  741=,  744=,  747=,  750=, 

753=,  763=,  765=,  767=,  769=,  771=, 

773=,  775=,  777=,  779=,  781=,  783=, 

785=,  787= 

nir2cf.W^AIN  54D,  432=,  433= 

smrc2inv  c2.f/abc_rc2_invert  925D,  931=,  939, 940, 941, 942, 943, 

944, 945, 946, 947, 948, 949, 950, 951, 

960, 961, 962, 963, 964, 965, 966,  967, 

968, 969, 970, 971, 972 

inr2cf.^MAIN  54D 


192 


TD  11,065 


Variables : 

Symbol  File/Subprogram  Line 


sp_cyl_al  cl.f/abc_rcl_invert  544D,  562D 

“/cla_pot  25D,44D,74= 

“/clb_pot  HID,  BOD 

“  /output_rcl  659D,  677D,  752, 778, 799,  817,  855, 
877, 928, 970 

“  /sys_matrix_rcl  202D,  221D,  377, 429, 481, 503 

c2.f/abc_rc2_invert  8 1 1 D,  829D 

“/output_rc2  lOOlD,  1019D 

“  /sys_matrix_rc2  209D,  228D,  67 1 , 739 

mr2cf.f/MAIN  92D,  HOD 

smc  1  .£^abc_c  IJnvert  290D,  308D 

“ /sys_matrix_cl  25D,  44D,  179, 226 
sp_cyl_a2  cl.f/abc_rcl_invert  545D,  563D 

“/cla_pot  26D,45D,77= 

“/clb_pot  H2D,  BID 

“  /output.rc  1  660D,  678D,  756, 782,  801 ,819,  879, 

972 

“  /sys_matrix_rcl  203D,  222D,  380, 432, 483, 505 

c2.f/abc_rc2_invert  8 1 2D,  830D 

“  /output_rc2  1002D,  1020D 

“  /sys_matrix_rc2  210D,  229D,  674, 742 

mr2cf.£MAIN  93D,  HID 

smcl.£^abc_cl_invert  291D,  309D 
“  /sys_inatrix_cl  26D,  45D,  182, 229 
sp_cyl_bl  cl.f/abc_rcl_mvert  546D,  564D 

“/cla_pot  27D,46D 

“  /clb_pot  1 BD,  B2D,  160= 

“  /output_ic  1  661D,  679D 

“  /sys_matrix_rc 1  204D,  223D,  276, 326 

c2.f/abc_rc2_mvert  8BD,  831D 

“/output_ie2  1003D,  1021D 

“  /sys_matrix_rc2  21  ID,  230D,  468, 541, 607, 639 
mr2cf.f/MAIN  94D,  H2D 

smcl.£^abc_cl_invert  292D,  310D 
“  /sys_matrix_cl  27D,  46D,  102, 151 
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Variables : 

Symbol  File/Subprogram  Line 


sp_cyl_b2  cl.f/abc_rcl_invert  547D,565D 
“/cla_pot  28D,47D 

“  /clb_pot  1 14D,  133D,  163= 

“  /output_rc  1  662D,  680D 

“  /sys_matrix_rc 1  205D,  224D,  279,  329 

c2.f/abc_rc2_invert  814D,  832D 

“  /output_rc2  1004D,  1022D 

“  /sys_matrix_rc2  212D,  231D,  471, 544, 609, 641 
mr2cf.f/MAIN  95D,  113D 

smc  1  .f^abc_c  l_invert  293D,  3 1  ID 

“  /sys_matrix_cl  28D,47D,  106, 154 
sp_cy2_bl  c2.f/abc_rc2_invert  849D,  869D 
“/c2b_pot  28D,47D,78= 

“/c2c_pot  119D,  139D 

“/output_rc2  1039D,  1059D,  1151, 1177, 1198, 1216, 

1254, 1275, 1326, 1368 

“  /sys_matrix_rc2  250D,  270D,  452, 523, 595, 625 
mr2cf.£MAIN  132D,  151D 

sp_cy2_b2  c2.f/abc_rc2Jnvert  850D,  870D 
“  /c2b_pot  29D,  48D,  81= 

“/c2c_pot  120D,  140D 

“/output_rc2  1040D,  1060D,  1155, 1181, 1200, 1218, 

1277, 1370 

“  /sys_matrix_rc2  25  ID,  27  ID,  455, 526, 597, 627 
inr2cf.mAIN  BSD,  152D 

sp_cy2_cl  c2.f/abc_rc2_invert  851D,  871D 

“/c2b_pot  30D,49D 

“/c2c_pot  121D,  141D,  170= 

“/output_rc2  1041D,  1061D 

“  /sys_matrix_rc2  252D,  272D,  344, 416 

mr2cf.£MAIN  134D,  BSD 

sp_cy2_c2  c2.f/abc_rc2Jnvert  852D,  872D 

“/c2b_pot  31D,50D 

“  /c2c_pot  122D,  142D,  173= 

“/output_rc2  1042D,  1062D 

c2.f/sys_matrix_rc2  253D,  273D,  348, 419 

mr2cf.f/MAIN  135D,  154D 
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Variables : 

Symbol  File/Subprogram  Line 


sp_rod  cl.£/abc_rcl_invert  581D,  586D 
“  /output_rc  1  696D,  VOID 

“  /sys_matrix_rcl  240D,  245D,  393, 447, 493, 517 

c2.f/abc_rc2_invert  890D,  895D 

“/output_rc2  1079D,  1084D 
“  /sys_matrix_rc2  29 ID,  296D 

nir2cf.m\DNl  67D,  72D 

rf.f/abc_rod_inveit  209D,  214D 

“  /abc_rod_solve  159D,  164D 

“  /output  272D,  277D,  3 13, 3 13, 326, 326, 329, 

336, 342, 354, 366, 392, 415 
“/rod_pot  23D,27D,44= 

“  /sys_matrix_rod  72D,  77D,  104, 118 
sir  c  1  .f/output_rc 1  720D,  769=,  77 1 

c2.f/output_rc2  1115D,  1168=,  1170 

rf.l^output  286D,  3 14=,  3 19 

sum  cbessl.f/cbessi  145D,  155=,  156 

“  /cbessj  62D,  88=,  89 

“  /fac  22D,  26=,  28, 28=,  30 

“  /gamma  5D,  9=,  11, 11=,  13 

“  /psi  40D,42=,  48,48=,  50 

suml  “  /cbessk  248D,  267=,  268 

“  /cbessy  171D,  195=,  196 

strai2  “  /cbessk  248D,  279=,  280 

“  /cbessy  17 ID,  207=,  208 

switch  rf.f^minv  460D,  490=,  492 

sxx  cl.f/output_rcl  720D,  791=,  793 

c2.f/ou^ut_rc2  1 1 15D,  1 190=,  1192 

rf.f/output  286D,  328=,  332 

t  “/minv  461D,  535= 

tft  cl.f/output_rcl  649D/*,653D,749,775,797,814,834, 

853, 875,  898, 921, 926, 968 

c2.f/output_rc2  99  ID/*,  995D,  1 148, 1 174, 1196, 1213, 

1233, 1252, 1273, 1296, 1319, 1324, 

1366 

fluids.f/outputjf  9  ID/*,  95D,  114, 121 

“  /output_of  134D/*,  138D,  156, 163 
mr2cf.]^AIN  19D,  269=,  294, 299, 322=,  327=,  338=, 

342, 361=,  368=,  372, 393=,  398=,  406=, 

410, 441=,  446=,  451=,  460=,  464 
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Variables : 

Symbol  File/Subprogram  Line 


rf.f/output  264D/*,  268D,  3 10, 323,  334,  340, 346, 

352, 364, 375, 388, 390,413 

total  cbessl.f/cbessi  145D,  151=,  156, 156=,  158 

“  /cbessj  62D,  82=,  89, 89=,  91 
totall  “  /cbessk  248D,  261=,  268, 268=,  271 

“  /cbessy  172D,  189=,  196, 196=,  199 
total2  “  /cbessk  248D,  262=,  280, 280=,  283 

“  /cbessy  172D,  190=,  208, 208=,  211 
uc  cl.f/output_rcl  720D,  848=,  850 

c2.f/output_rc2  1115D,  1247=,  1249 

ur  rf.f/output  286D,  348=,  350 

value  cl.^output_rcl  649D/*,  655D,  771=,  793=,  811=,  831=, 

850=,  869=,  872=,  892=,  895=,  915=, 

918=,  922=,  964=,  985=,  1008= 
c2.f/output_rc2  991D/*,  997D,  1 170=,  1 192=,  1210=, 

1230=,  1249=,  1267=,  1270=,  1290=, 

1293=,  1313=,  1316=,  1320=,  1362=, 

1383=,  1406= 

fluids.f/output_if  9  ID/*,  97D,  118=,  125= 

“  /output.of  134D/*,  140D,  160=,  167= 

mr2cf.f/MAIN  36D,  322=,  327=,  338=,  343, 343=,  346, 

361=,  368=,  373, 373=,  376, 393=,  398=, 

406=,  411, 411=,  414, 441=,  446=,  451=, 

460=,  465, 465=,  468, 472, 476 
rf.f/output  264D/*,  270D,  319=,  332=,  338=,  344=, 

350=,  359=,  362=,  371=,  373=,  383=, 

386=,  389=,  411=,  420=,  434= 

VC  cl.f^output_rcl  720D,  829=,  831 

c2.f/output_rc2  1115D,  1228=,  1230 

vr  rf.f/output  286D,  342=,  344 
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Variables : 

Symbol  File/Subprogram  Line 


vrtp_cyl_al  cl.f/abc_rcl_invert  554D,  570D 
“/cla_pot  35D,52D,89= 

“/clb_pot  121D,  138D 

“  /ouQ)ut_rcl  669D,  685D,  786, 803, 825,  844, 860, 
885, 933, 978 

“  /sys_matrix_rcl  212D,  229D,  412, 442, 467, 489, 511 

c2.f/abc_rc2_invert  82  ID,  837D 

“/output_rc2  lOllD,  1027D 

“  /sys_matrix_rc2  219D,  236D,  713, 751, 783 
mr2cf.f/MAIN  102D,  118D 

smc  1  .£^abc_c  l_invert  300D,  3 1 6D 

“  /sys_matrix_cl  35D,  52D,  209, 238, 260 
vrtp_cyl_a2  cl.f/abc_rcl_invert  555D,  57 ID 
“/cla_pot  36D,53D,92= 

“/clb_pot  122D,  139D 

“  /output_rc 1  670D,  686D,  789, 806, 827,  846,  863, 

887, 936, 980 

“  /sys_matrix_rcl  213D,  230D,  415, 445, 469, 491, 514 

c2.f/abc_rc2_invert  822D,  838D 

“  /output_rc2  1012D,  1028D 

“  /sys_matrix_rc2  220D,  237D,  716, 754, 785 

inr2cf.f/MAIN  103D,  119D 

smcl.£^abc_cl_invert  301D,  317D 
“  /sys_matrix_cl  36D,  53D,  212, 241, 262 
vrtp_cyl_bl  cl.f^abc_rcl_invert  556D,  572D 
“  /cla_pot  37D,  54D 

“  /clb_pot  123D,  140D,  176= 

“/output_rcl  671D,  687D 

“  /sys_matrix_rcl  214D,  231D,  309, 338, 362 

c2.f/abc_rc2_invert  823D,  839D 

“/output_rc2  1013D,  1029D 

“  /sys_matrix_rc2  221D,  238D,  511, 554, 585, 615, 647 

mr2cf.^AIN  104D,  120D 

smcl.f^abc_cl_invert  302D,  318D,  377, 391 
“  /sys_matrix_cl  37D,  54D,  118, 137, 163 
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Variables : 

Symbol  File/Subprogram  Line 


vrtp_cyl_b2  cl.f/abc_rcl_invert  557D,  573D 

“/cla_pot  38D,55D 

“  /c  lb_pot  124D,  141D,  179= 

“  /output_rcl  672D,  688D 
“  /sys_matrix_rcl  215D,  232D,  312, 341, 364 

c2.f/abc_rc2_invert  824D,  840D 

“/output_rc2  1014D,  1030D 

“  /sys_matrix_rc2  222D,  239D,  5 14, 557, 587, 617,  649 

mr2cf.^MAIN  105D,  121D 

smcl.f/abc_cl_invert  303D,  319D,  378, 392 
“  /sys_matrix_cl  38D,  55D,  121, 140, 166 
vrtp_cy2_bl  c2.f^abc_rc2_invert  859D,  877D 

“/c2b_pot  38D,55D,93= 

“/c2c_pot  129D,  147D 

“  /output_rc2  1049D,  1067D,  1185, 1202, 1224, 1243, 

1259,  1283, 1331, 1376 

“  /sys_matrix_rc2  260D,  278D,  497, 536, 573, 603, 633 

mr2cf.ms4AIN  142D,  159D 

vrtp_cy2_b2  c2.f/abc_rc2_invert  860D,  878D 

“/c2b_pot  39D,56D,96= 

“/c2c_pot  BOD,  148D 

c2.f/output_rc2  1050D,  1068D,  1188, 1205, 1226, 1245, 
1262, 1285, 1334, 1378 

“/sys_matrix_rc2  261D,  279D,  500,  539, 575, 605, 636 

mr2cf.^MAIN  143D,  160D 

vrtp_cy2_cl  c2.f/abc_rc2_invert  861D,  879D,  956, 977 

“/c2b_pot  40D,57D 

“/c2c_pot  BID,  149D,  186= 

“  /output_rc2  105  ID,  1069D 
“  /sys_matrix_rc2  262D,  280D,  360,  39 1 , 428 

inr2cf.^MAIN  144D,  161D 

vrtp_cy2_c2  c2.f/abc_rc2_invert  862D,  880D,  957, 978 

“/c2b_pot  41D,58D 

“/c2c_pot  B2D,  BOD,  189= 

“/output_rc2  1052D,  1070D 

“  /sys_matrix_rc2  263D,  28  ID,  363, 394, 43 1 

-  mr2cf.mAIN  145D,  162D 
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Variables : 

Symbol  File/Subprogram  Line 


vr^_rod  cl.f/abc_rcl_invert  582D,  588D 
“/output_rcl  697D,703D 

“  /sys_matrix_rc  1  24 1 D,  247D,  422, 453, 475, 497, 521 

c2.f/abc_rc2_invert  891D,  897D 
“  /output_rc2  1080D,  1086D 
“  /sys_matrix_rc2  292D,  298D 
mr2cf.mslAIN  69D,73D 

rf.f/abc_rod_invert  210D,  216D 

“  /abc_rod_solve  160D,  166D 

“  /output  273D,  279D,  330, 337,  337, 343, 349, 

356, 368,  394,417 
“  /rod_pot  24D,  29D,  54= 

“  /sys_matrix_rod  73D,  79D,  115, 124, 141 
vui  fluids.£/output_if  HID,  123=,  125 
vws  “  /output_of  153D,  165=,  167 

vxp_cyl_al  cl.f/abc_rcl_mvert  549D,  566D 
“/cla_pot  30D,48D,82= 

“/clb_pot  116D,  134D 

“  /output_rcl  664D,  681D,  759, 840, 881, 904, 948, 
974, 992 

“  /sys_matrix_rcl  207D,  225D,  382, 408, 436, 463 

c2.f/abc_rc2_invert  816D,  833D 

“  /output_rc2  1006D,  1023D 

“  /sys_matrix_rc2  214D,  232D,  676, 709, 745, 779 
mr2cf.mAIN  97D,  114D 

smc  1  .£^abc_c  l_invert  295D,  3 1 2D 

“  /sys_matrix_cl  30D,  48D,  184, 205, 232, 256 
vxp_cy  l_a2  c  1  .f/abc_rc  l_invert  550D,  567D 
“/cla_pot  31D,49D,85= 

“/clb_pot  117D,  135D 

“  /output_rcl  665D,  682D,  762, 842, 883, 906, 950, 
976, 994 

“  /sys_matrix_rcl  208D,  226D,  385, 410, 439, 465 

c2.f/abc_rc2_invert  817D,  834D 

“  /ou^ut_rc2  1007D,  1024D 

“  /sys_matrix_rc2  2 1 5D,  233D,  679, 7 1 1 , 748, 78 1 

mr2cf.mvlAIN  98D,  115D 

smcl.£/abc_cl_invert  296D,  313D 
“  /sys_matrix_cl  3  ID,  49D,  187, 207, 235, 258 
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Variables : 

Symbol  File/Subprogram  Line 


vxp_cy  l_b  1  cl  .f/abc_rc  l_invert  55 1 D,  568D 

“/cla_pot  32D,50D 

“  /c  lb_pot  1 18D,  136D,  169= 

“  /output_rcl  666D,  683D 
“  /sys_matrix_rc 1  209D,  227D,  28 1 , 305, 332, 358 

c2.f/abc_rc2_invert  818D,  835D 

“  /output_rc2  1008D,  1025D 

“  /sys_matrix_rc2  216D,  234D,  473, 507, 548, 58 1 
mr2cf.f/MAIN  99D,  116D 
smcl.f/abc_cl_invert  297D,  314D,  375, 389 
“  /sys_matrix_cl  32D,  50D,  109,  111,  133, 157 
vxp_cyl_b2  cl.f/abc_rcl_invert  552D,  569D 
“/cla_pot  33D,51D 

“  /c  lb_pot  1 19D,  137D,  172= 

“  /output_rc 1  667D,  684D 

“  /sys_matrix_rc  1  210D,  228D,  284, 307, 335, 360 

c2.f/abc_rc2_invert  8 1 9D,  836D 

“/output_rc2  1009D,  1026D 

“  /sys_matrix_rc2  217D,  235D,  476, 509, 551, 583 
inr2cf.^AIN  lOOD,  117D 

smcl.fi^abc_cl_invert  298D,  315D,  376, 390 
“  /sys_matrix_cl  33D,  51D,  113, 115, 135, 160 
vxp_cy2_bl  c2.f/abc_rc2_invert  854D,  873D 
“/c2b_pot  33D,51D,86= 

“/c2c_pot  124D,  143D 

“  /output_rc2  1044D,  1063D,  1158, 1239, 1279, 1302, 

1346, 1372, 1390 

“  /sys_matrix_rc2  255D,  274D,  457, 493, 530, 569 
mr2cf.mvlAIN  137D,  155D 

vxp_cy2_b2  c2.f/abc_rc2Jnvert  855D,  874D 
“  /c2b_pot  34D,  52D,  89= 

“/c2c_pot  125D,  144D 

“  /output_rc2  1045D,  1064D,  1161, 1241, 1281, 1304, 

1348, 1374, 1392 

“  /sys_matrix_rc2  256D,  275D,  460, 495, 533, 57 1 
mr2cf.mAIN  138D,  156D 
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Variables : 

Symbol  File/Subprogram  Line 


vxp_cy2_cl  c2.f/abc_rc2_invert  856D,  875D,  954, 975 
“  /c2b_pot  35D,  53D 

“  /c2c_pot  126D,  145D,  179= 

“  /output_rc2  1046D,  1065D 

“  /sys_matrix_rc2  257D,  276D,  35 1 ,  353, 387, 422 
mr2cf.m\IN  139D,  157D 

vxp_cy2_c2  c2.f/abc_rc2_invert  857D,  876D,  955, 976 
“  /c2b_pot  36D,  54D 

“  /c2c_pot  127D,  146D,  182= 

“/output_rc2  1047D,  1066D 

“  /sys_matrix_rc2  258D,  277D,  355,  357, 389, 425 
mr2cf.mAIN  HOD,  158D 

vxp_rod  cl.f^abc_rcl_invert  581D,  587D 
“  /output_rcl  696D,  702D 

“  /sys_matrix_rcl  240D,  246D,  396, 420, 450, 473 
c2.f/abc_rc2_invert  890D,  896D 
“  /output_rc2  1079D,  1085D 

“  /sys_matrix_rc2  291D,  297D 

mr2cf.fiMAIN  68D,  72D 

rf.f/abc_rod_invert  209D,  215D 

“  /abc_rod_solve  159D,  165D 

“  /output  272D,  278D,  315, 348,  367, 378, 401, 

416,424 

“  /rod_pot  23D,  28D,  50= 

“  /sys_matrix_rod  72D,  78D,  106, 113, 122, 139 
wc  cl.f^output_rcl  720D,  809=,  811 
c2.f/output_rc2  1115D,  1208=,  1210 

work  mr2cf.f/MAIN  35D 

rf.£^abc_rod_invert  232D,  237= 

“  /minv  448D/*,  456D,  465=,  471=,  472=,  479, 

482, 485, 490, 491, 491=,  492=,  502, 

502, 502, 503, 503=,  505=,  513, 515, 
515=,  521, 523, 523, 523=,  530 
workcl  mr2cf.f/MAIN  59D 

smcL£^abc_cl_invert  351D,  357= 
workrcl  cl.^abc_rcl_invert  604D,  610= 

mr2cf.f/MAIN  48D 

workrc2  c2.f/abc_rc2_invert  925D,  931= 

mr2cf.WvlAIN  54D 

wr  rf.f/output  286D,  336=,  338 
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Variables : 

Symbol  File/Subprogram  Line 


y2  cbesshf/dlcbessy  362D,  37 1=,  372,  376=,  379, 388=,  389 
“  /d2cbessy  407D,  413=,  4 14, 418=,  42 1,425=,  430, 
440=,  442 

y3  “  /dlcbessy  362D,  377=,  379 

“  /d2cbessy  407D,  419=,  421, 426=,  430 
y4  “  /  “  407D,428= 

yn  mr2cf.f/MAIN  8D  - 

z  cbessLf/cbessi  145D,  148=,  155, 158 

“  /cbessj  62D,  70=,  72, 76, 77,  88, 91, 126, 126, 

127 

“  /cbessk  248D,  253=,  254, 267, 271, 279, 283 
“  /cbessy  171D,  177=,  178, 180, 195, 199, 207, 

211, 225,  227, 229, 230, 232, 232, 233 
mr2cf.m\IN  8D 

z2  cbessLf^cbessk  248D,  254=,  273 

“  /cbessy  171D,  178=,  201 

zero  cl.^output_rcl  654D,  727=,  868, 869, 891, 892, 914, 

915, 940,  941, 958, 959, 984, 985, 

1002, 1003 

c2.f/output_rc2  996D,  1123=,  1266, 1267, 1289, 1290, 

1312, 1313, 1338, 1339, 1356,  1357, 

1382, 1383, 1400, 1401 

rf.f/output  269D,  292=,  358, 359, 370, 37 1, 382, 

383, 396,  397, 405, 406, 419, 420, 428, 

429 


zeta_lcyl  nir2cf.f/MAIN 
zeta_2cyl  “  /  “ 

zeta_rod  “  /  “ 

zm  cbessLf/cbessj 
“  /cbessy 


25D,  200=,  209 
26D,  223=,  232 
21D,  185=,  189 
61D,  72=,  79 
170D,  180=,  182 
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LABELS 


Labels 


Symbol  File/Subprogram  Line 


4 

mr2cf.f/MAIN 

488, 489D 

10 

cbessLf/cbessi 

153, 157D 

“  /cbessj 

86,90D 

“  /cbessk 

265, 269D 

“  /cbessy 

193, 197D 

“  /fac 

27, 29D 

“  /gamma 

10, 12D 

“  /psi 

47, 49D 

mr2cf.fi'MAIN 

299,  300D 

20 

cbessLf/cbessk 

275, 281D 

“  /cbessy 

203, 209D 

mr2cf.fiMAIN 

294, 295D 

51 

<4  J  <4 

476, 477D 

60 

44  j  44 

478, 479D 

70 

44  !  44 

480, 48  ID 

100 

rf.fi^minv 

464, 466D 

110 

44  j  44 

463, 467D 

120 

44  J  44 

470, 473D 

130 

44  j  44 

469,474D 

140 

44  j  44 

478D,510 

150 

44  J  44 

481,483,486D 

160 

44  j  44 

489, 493D 

170 

44  j  44 

488, 495D 

180 

44  !  4« 

501, 504D 

190 

44  j  44 

500, 506D 

200 

44  j  44 

514, 516D 

210 

44  j  44 

512, 517D 

220 

44  j  44 

522, 524D 

230 

44  j  44 

520, 525D 

240 

44  j  44 

519, 526D 

250 

44  !  44 

529, 53  ID 

260 

44  !  44 

528, 532D 

400 

mr2cf.£/MAIN 

334, 335D, 

410 

44  j  44 

427,428D 

900 

rf.f/minv 

499, 552D 
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STRINGS 

Strings : 

Symbol  File/Subprogram  Line 


‘  r=‘  mr2cf.£'MAIN  300 

‘  D_IF=  ‘  “  /  “  428 

‘  BFSC  =  ‘  “  /  “  428 

‘  M_OF  =  ‘  “  /  “  335 

‘  OFSC  =  ‘  “  /  “  335 

‘  Om  =  ‘  “  /  “  482 

‘  ao_lcyl  =  ‘ 

“  /  “  301 

‘  bo_cl  =  ‘  “  /  “  301 

‘  co_c2  =  ‘  “  /  “  301 

‘BMAG  <  ARTMCIAL  ZERO  (l.OD-12)  RETURNING  FROM  MINV’ 
rf.^minv  555 

‘Enter  tft,k,f,emt:  (where  emt=l  ICYLINDER,  emt=2ROD,  emt=3  ROD&CYL,  emt=4 
2CYLINDERS,  using  mr2cf.f)’ 

mr2cf.f/MAIN  290 

‘MAIN PROGRAM  n=‘ 

“  /  “  300 

‘SUB  OUTPUT  k=‘ 

“  /  “  481 

‘SUB  OUTPUT  THE  ANSWER  IS  g(jk)  =  ‘ 

“  /  “  479 

‘SUB  OUTPUT  THE  ANSWER  IS  value  =  ‘ 

“  /  “  477 

‘lype  1  if  you  wish  to  quit’ 

“  /  “  487 

‘dl_IFSC  =  ‘  “  /  “  428 

‘dl_OFSC  =  ‘  “  /  “  335 

‘tft  =  ‘  “  /  “  302 
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INDEX 

Index  Thu  Oct  19  16:48:44  1995 

General  options  in  effect: 

-o  nir2cf.lst 

Files: 

/home/kwcode/analysis/tota/RODCY2/mr2cf.f .  27 

/home/kwcode/analysis/tota/RODCY2/cbessl.f. .  40 

/home/kwcode/analy sis/tota/RODC Y2/rf.f . .  54 

/home/kwcode/analysis/tota/RODC Y2/c  1  .f. .  68 

/home/kwcode/analysis/tota/RODCY2/c2.f. .  92 

/home/kwcode/analysis/tota/RODCY2/fluids.f . 124 

/home/kwcode/analy  sis/tota/RODC  Y2/smc  1  .f . 130 

Cross  Reference: 

Subprograms . 142 

Variables . . . 147 

Labels . 203 

Strings . .....204 

Legend: 

D  Definition/declaration 

=  Possibly  modified  occurrence 

*  Dummy  argument 
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APPENDIX  A 

INTERMEDIATE  VARIABLES  FOR  NUWC-NPT  TR  U,043 


Table  A-1.  Common  Block  /ROD/ 


FORTRAN 

VARIABLE 

TR  11,043 
VARIABLE 

DESCRIPTION 
(Solid  Cylinder  Variables) 

SP.rod 

Bessel  function  of  the  first  kind,  used  for  the  scalar 
displacement  potential.  Can  be  evaluated  again  for 

(Pi^i)- 

dl_SP_rod 

First  derivative  of /„(pjr)  with  respect  to  r.  Can  be 
evaluated  again  for 

d2_SP_rod 

Second  derivative  of  y„  (pj/-)  with  respect  to  r.  Can 
be  evaluated  again  for  ip\r^. 

VXP.rod 

Bessel  function  of  the  first  kind,  used  for  the  vector  x 
displacement  potential.  Can  be  evaluated  again  for 

dl_VXP_rod 

First  derivative  of  y„(9jr)  with  respect  to  r.  Can  be 
evaluated  again  for  (^irj). 

d2_VXP_rod 

dr 

Second  derivative  of with  respect  to  r.  Can 
be  evaluated  again  for 

VRTP_rod 

Bessel  function  of  the  first  kind,  used  for  the  vector  r 
and  0  displacement  potential  of  order  n  +  1.  Can  be 
evaluated  again  for 

dl_VRTP_rod 

First  derivative  of with  respect  to  r.  Can  be 
evaluated  again  for  {qir^. 

d2_VRTP_rod 

dr 

Second  derivative  ofy„^j(9jr)  with  respect  tor.  Can 
be  evaluated  again  for  (qiri). 
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Table  A-1.  Common  Block /ROD/  (Cont’d) 


FORTRAN 

VARIABLE 

TR  11,043 
VARIABLE 

DESCRIPTION 
(Solid  Cylinder  Variables) 

Al_rod 

Undetermined  constant. 

Bl_rod 

Undetermined  constant. 

Cl_rod 

^1 

Undetermined  constant. 

lame_rod 

Lame  constant  for  the  solid  cylinder. 

shear_rod 

Shear  modulus  for  the  solid  cylinder. 

Table  A-2.  Common  Block  /CYLINDERl/ 


FORTRAN 

VARIABLE 

TR  11,043 
VARIABLE 

DESCRIPTION 
(Outer  Cylinder  Variables) 

SP_CYl_al 

Bessel  function  of  the  first  kind,  used  for  the 
scalar  displacement  potential.  Can  be  evaluated 
again  for  (^2^)* 

dl_SP_CYl_al 

First  derivative  of with  respect  to  r.  Can 
be  evaluated  again  for  (p2''i)- 

d2_SP_CYl_al 

3^.  /  X 
dr 

Second  derivative  of  {p^r)  with  respect  to 
r.  Can  be  evaluated  again  for  (pa^i)- 

VXP_CYl_al 

Bessel  function  of  the  first  kind,  used  for  the 
vector  X  displacement  potential.  Can  be 
evaluated  again  for  (^2^1). 

dl_VXP_CYl_al 

First  derivative  of with  respect  to  r.  Can 
be  evaluated  again  for  (^2^1). 

d2_VXP_CYl_al 

dr 

Second  derivative  of  {q^r)  with  respect  to 
r.  Can  be  evaluated  again  for  (^2''i)* 
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Table  A-2.  Common  Block /CYLINDERl/  (Cont’d) 


FORTRAN 

VARIABLE 

TR  11,043 
VARIABLE 

DESCRIPTION 
(Outer  Cylinder  Variables) 

VRTP_CYl_al 

Bessel  function  of  the  first  kind,  used  for  the 
vector  r  and  0  displacement  potential  of  order 
n  +  1.  Can  be  evaluated  again  for 

dl_VRTP_CYl_al 

First  derivative  of  ^  j  (q^r)  with  respect  to 
r.  Can  be  evaluated  again  for  (^2''i)- 

d2_VRTP_CYl_al 

dr 

Second  derivative  of  (92'')  respect  to 

r.  Can  be  evaluated  again  for  (^2^1)- 

SP_CYl_bl 

Bessel  function  of  the  first  kind,  used  for  the 
scalar  displacement  potential. 

dl_SP_CYl_bl 

First  derivative  of  (pjr)  with  respect  to  r. 

d2_SP_CYl_bl 

or 

Second  derivative  of  {p^r)  with  respect  to  r. 

VXP_CYl_bl 

Bessel  function  of  the  first  kind,  used  for  the 
vector  X  displacement  potential. 

dl_VXP_CYl_bl 

First  derivative  of  y„  {q.f)  with  respect  to  r. 

d2_VXP_CYl_bl 

3^,  , 

dr 

Second  derivative  of  {q^r)  with  respect  to  r. 

VRTP_CYl_bl 

Bessel  function  of  the  first  kind,  used  for  the 
vector  r  and  6  displacement  potential  of  order 
n  1, 
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Table  A-2.  Common  Block /CYLINDERl/  (Cont’d) 


FORTRAN 

VARIABUE 

TR  11,043 
VARIABLE 

DESCRIPTION 
(Outer  Cylinder  Variables) 

dl_VRTP_CYl_bl 

First  derivative  of  y„ + ,  with  respect  to  r. 

d2_VRTP_CYl_bl 

or 

Second  derivative  of  ^  1  with  respect  to  r 

SP_CYl_a2 

Y„{p,a) 

Bessel  function  of  the  first  kind,  used  for  the 
scalar  displacement  potential.  Can  be  evaluated 
again  at  ^2^1)- 

dl_SP_CYl_a2 

First  derivative  of  (pj/-)  with  respect  to  r.  Can 
be  evaluated  again  at  (p2^i)' 

d2_SP_CYl_a2 

Xy„(P2‘>) 

or 

Second  derivative  of  y„  (pjr)  with  respect  to 
r.  Can  be  evaluated  again  at 

VXP_CYl_a2 

Bessel  function  of  the  first  kind,  used  for  the 
vector  X  displacement  potential.  Can  be 
evaluated  again  at  (q2f‘i). 

dl_VXP_CYl_a2 

■^Y„(q2a) 

First  derivative  of  respect  to  r.  Can 

be  evaluated  again  at  (^2^1). 

d2_VXP_CYl_a2 

dr 

Second  derivative  of  y„(92'')  with  respect  to 
r.  Can  be  evaluated  again  at  (^2^1). 

VRTP_CYl_a2 

1(^20) 

Bessel  function  of  the  first  kind,  used  for  the 
vector  r  and  6  displacement  potential  of  order 
n  +  1.  Can  be  evaluated  again  at  (^2^1). 

dl_VRTP_CYl_a2 

First  derivative  of  ^  j  (^jr)  with  respect  to 

r.  Can  be  evaluated  again  at  (^2^1). 
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Table  A-2.  Common  Block  /CYLINDERl/  (Cont’d) 


FORTRAN 

VARIABLE 

TR  11,043 
VARIABLE 

DESCRIPTION 
(Outer  Cylinder  Variables) 

d2_VRTP_CYl_a2 

or 

Second  derivative  of  j  (q^r)  with  respect  to 
r.  Can  be  evaluated  again  at  (q'2^1). 

SP_CYl_b2 

YniPlb) 

Bessel  function  of  the  first  kind,  used  for  the 
scalar  displacement  potential. 

dl_SP_CYl_b2 

First  derivative  of  y„  {p^r)  with  respect  to  r. 

d2_SP_CYl_b2 

or 

Second  derivative  of  Y^ip^r)  with  respect  to  r. 

VXP_CYl_b2 

Bessel  function  of  the  first  kind,  used  for  the 
vector  X  displacement  potential. 

dl_VXP_CYl_b2 

First  derivative  of  {q^r)  with  respect  to  r. 

d2_VXP_CYl_b2 

or 

Second  derivative  of  {q^r)  with  respect  to  r. 

VRTP_CYl_b2 

Bessel  function  of  the  first  kind,  used  for  the 
vector  r  and  6  displacement  potential  of  order 

/I  +  1. 

dl_VRTP_CYl_b2 

First  derivative  of  {q^r)  with  respect  to  r. 

d2_VRTP_CYl_b2 

dr 

Second  derivative  of  i"„+i  (^2''1  respect  to  r. 

A1_C1 

Undetermined  constant. 

A2_C1 

^2 

Undetermined  constant. 
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Table  A-2.  Common  Block  /CYLINDERl/  (Cont’d) 


FORTRAN 

TR  11,043 

DESCRIPTION 

VARIABLE 

VARIABLE 

(Outer  Cylinder  Variables) 

B1_C1 

Bf 

Undetermined  constant. 

B2_C1 

Undetermined  constant. 

C1_C1 

^1 

Undetermined  constant. 

C2_C1 

^2 

Undetermined  constant. 

lame_cl 

h 

Lame  constant  for  the  second  cylinder. 

shear_cl 

^2 

Shear  modulus  for  the  second  cylinder. 

Table  A-3.  Calculated  Solid  Cylinder  Variable 


FORTRAN 

VARIABLE 

TR  11,043 
VARIABLE 

DESCRIPTION 

Ec_rod 

Complex  Young’s  modulus. 

Table  A-4.  Calculated  Outer  Cylinder  Variables 


FORTRAN 

VARIABLE 

TR  11,043 
VARIABLE 

DESCRIPTION 

Ec_cl 

E2 

Complex  Young’s  modulus. 

bo_cl 

b 

Outer  radius. 
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Table  A-5.  Common  Block  /OFLUID/ 


FORTRAN 

VARIABLE 

TR  11,043 
VARIABLE 

DESCRIPTION 

OFSC 

OTK„(f^b) 

Modified  Bessel  function,  used  for  the 
scalar  displacement  potential.  Can  also 
be  evaluated  at  (^2^)  3®d  (^ri). 

dl.OFSC 

First  derivative  of  “OFSC”  with  respect  to 
r.  Can  also  be  evaluated  at  (g2^i)  and 
(far,). 

M_OF 

MotH 

Undetermined  constant. 

Table  A-6.  System  Matrix  Variables 


FORTRAN 

VARIABLE 

TR  11,043 
VARIABLE 

DESCRIPTION 

sm 

SR 

System  matrix  for  the  single  solid  cylinder 
and  outer  fiuid. 

smrcl 

S 

System  matrix  for  the  double  cylinder  and 
outer  fiuid. 

A-7/A-8 
Reverse  Blank 
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APPENDIX  B 

INTERMEDIATE  VARIABLES  FOR  NUWC-NPT  TR  U,067 


Table  B-1.  Common  Block  /CYLINDERl/ 


FORTRAN 

VARIABLE 

TR  11,067 
VARIABLE 

DESCRIPTION 

SP_CYl_al 

Bessel  function  of  the  first  kind,  used  for  the 
scalar  displacement  potential.  Can  be  evaluated 
again  for  (pjri). 

dl_SP_CYl_al 

First  derivative  of  y„(Pir)  with  respect  to  r.  Can 
be  evaluated  again  for  (Pirj). 

d2_SP_CYl_al 

dr 

Second  derivative  of  ^p^r)  with  respect  to 
r.  Can  be  evaluated  again  for  (pir^). 

VXP_CYl_al 

Bessel  function  of  the  first  kind,  used  for  the 
vector  ;c  displacement  potential.  Can  be 
evaluated  again  for 

dl_VXP_CYl_al 

First  derivative  of r)  with  respect  to  r.  Can 
be  evaluated  again  for  (qiri). 

d2_VXP_CYl_al 

rT'n(9l«) 

dr 

Second  derivative  of  {q^r)  with  respect  to 
r.  Can  be  evaluated  again  for  (qiri). 

VRTP_CYl_al 

Bessel  function  of  the  first  kind,  used  for  the 
vector  r  and  6  displacement  potential  of  order 
n  +  1.  Can  be  evaluated  again  for 

dl_VRTP_CYl_al 

First  derivative  of  ^  j  i  r)  with  respect  to 
r.  Can  be  evaluated  again  for 

d2_VRTP_CYl_al 

or 

Second  derivative  of  (q^r)  with  respect  to 

r.  Can  be  evaluated  again  for  iqiri). 
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Table  B-1.  Common  Block /CYUNDERl/  (Cont’d) 


FORTRAN 

VARIABLE 

TR  11,067 
VARIABLE 

DESCRIPTION 

SP_CYl_bl 

J,(p,b) 

Bessel  function  of  the  first  kind,  used  for  the 
scalar  displacement  potential. 

dl_SP_CYl_bl 

First  derivative  of  (p^r)  with  respect  to  r. 

d2_SP_CYl_bl 

dr 

Second  derivative  of  /„  {p^r)  with  respect  to  r. 

VXP_CYl_bl 

Bessel  function  of  the  first  kind,  used  for  the 
vector  X  displacement  potential. 

dl_VXP_CYl_bl 

Rrst  derivative  of  (q^r)  with  respect  to  r. 

d2_VXP_CYl_bl 

“2^11  (^1*) 
dr 

Second  derivative  of  J„(qir)  with  respect  to  r. 

VRTP_CYl_bl 

Bessel  function  of  the  first  kind,  used  for  the 
vector  r  and  6  displacement  potential  of  order 
n+  1. 

dl_VRTP_CYl_bl 

First  derivative  of  ^  j  (q^r)  with  respect  to  r. 

d2_VRTP_CYl_bl 

dr 

Second  derivative  of  J„+i(qir)  with  respect  to  r. 

SP_CYl_a2 

Bessel  function  of  the  first  kind,  used  for  the 
scalar  displacement  potential.  Can  be  evaluated 
again  for  (pirj). 

dl_SP_CYl_a2 

First  derivative  of  {p^r)  with  respect  to  r.  Can 
be  evaluated  again  for  (pirj). 
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Table  B-1.  Common  Block  /CYLINDERl/  (Cont’d) 


FORTRAN 

VARIABLE 

TR  11,067 
VARIABLE 

DESCRIPTION 

d2_SP_CYl_a2 

dr 

Second  derivative  of  y„  (pjr)  with  respect  to 
r.  Can  be  evaluated  again  for  (piri). 

VXP_CYl_a2 

Bessel  function  of  the  first  kind,  used  for  the 
vector  X  displacement  potential.  Can  be 
evaluated  again  for  (,qir{). 

dl_VXP_CYl_a2 

First  derivative  of  (9,r)  with  respect  to  r.  Can 
be  evaluated  again  for  (^irj). 

d2_VXP_CYl_a2 

dr 

Second  derivative  of  y„  iq^r)  with  respect  to 
r.  Can  be  evaluated  again  for 

VRTP_CYl_a2 

Bessel  function  of  the  first  kind,  used  for  the 
vector  r  and  0  displacement  potential  of  order 
n  +  1.  Can  be  evaluated  again  for  (^jri). 

dl_VRTP_CYl_a2 

First  derivative  of  y„  ^  i  (q^r)  with  respect  to 
r.  Can  be  evaluated  again  for  (q^ri). 

d2_VRTP_CYl_a2 

or 

Second  derivative  of  Y^^^(q^r)  with  respect  to 
r.  Can  be  evaluated  again  for  iqiri). 

SP_CYl_b2 

Bessel  function  of  the  first  kind,  used  for  the 
scalar  displacement  potential. 

dl_SP_CYl_b2 

First  derivative  of  y„  (J>^r)  with  respect  to  r. 

d2_SP_CYl_b2 

Syn(Plb) 

dr 

Second  derivative  of  y„  (pjr)  with  respect  to  r. 

VXP_CYl_b2 

Bessel  function  of  the  first  kind,  used  for  the 
vector  X  displacement  potential. 
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Table  B-1.  Common  Block /CYLINDERl/  (Cont’d) 


FORTRAN 

VARIABLE 

TR  11,067 
VARIABLE 

DESCRIPTION 

dl_VXP_CYl_b2 

First  derivative  of  jr)  with  respect  to  r. 

d2_VXP_CYl_b2 

dr 

Second  derivative  of  (q^r)  with  respect  to  r. 

VRTP_CYl_b2 

Bessel  function  of  the  first  kind,  used  for  the  vec¬ 
tor  r  and  0  displacement  potential  of  order  n  +  1. 

dl_VRTP_CYl_b2 

First  derivative  of  j  (q^r)  with  respect  to  r. 

d2_VRTP_CYl_b2 

dr 

Second  derivative  of  i  (q^r)  with  respect  to  r. 

A1_C1 

Undetermined  constant. 

A2_C1 

Undetermined  constant. 

B1_C1 

Undetermined  constant. 

B2_C1 

Undetermined  constant. 

C1_C1 

cr 

Undetermined  constant. 

C2_C1 

^2 

Undetermined  ctmstant 

lame_cl 

Lame  constant  for  cylinder  1 . 

shear_cl 

Shear  modulus  for  cylinder  1. 
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Table  6-2.  Common  Block  /CYLINDER2/ 


FORTRAN 

VARIABLE 

TR  11,067 
VARIABLE 

DESCRIPTION 

SP_CY2_bl 

J„(P2b) 

Bessel  function  of  the  first  kind,  used  for  the 
scalar  displacement  potential.  Can  be  evaluated 
again  for 

dl_SP_CY2_bl 

First  derivative  of /„(P2'‘)  with  respect  to  r.  Can 
be  evaluated  again  for  (p^Ty)- 

d2_SP_CY2_bl 

dr 

Second  derivative  of  {p^r)  with  respect  to 
r.  Can  be  evaluated  again  for  (p2^i)* 

VXP_CY2_bl 

Bessel  function  of  the  first  kind,  used  for  the 
vector  X  displacement  potential.  Can  be 
evaluated  again  for  (^2^1). 

dl_VXP_CY2_bl 

First  derivative  of with  respect  to  r.  Can 
be  evaluated  again  for  (^^2^1). 

d2_VXP_CY2_bl 

dr 

Second  derivative  of  {q^r)  with  respect  to 
r.  Can  be  evaluated  again  for  iq^ry)- 

VRTP_CY2_bl 

Bessel  function  of  the  first  kind,  used  for  the 
vector  r  and  6  displacement  potential  of  order 
/I  +  1.  Can  be  evaluated  again  for  (^2^1). 

dl_VRTP_CY2_bl 

Rrst  derivative  of  ^  1  (q^r)  with  respect  to 
r.  Can  be  evaluated  again  for  (^2^1)- 

d2_VRTP_CY2_bl 

'^n  +  l^‘l2b^ 
or 

Second  derivative  of  ^  j  (q^r)  with  respect  to 
r.  Can  be  evaluated  again  for  (^2^1)* 

SP_CY2_cl 

Bessel  function  of  the  first  kind,  used  for  the 
scalar  displacement  potential. 

dl_SP_CY2_cl 

First  derivative  of  (p^r)  with  respect  to  r. 
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Table  B-2.  Common  Block /CYLINDER!/  (Cont’d) 


FORTRAN 

VARIABLE 

TR  11,067 
VARIABLE 

DESCRIPTION 

d2_SP_CY2_cl 

or 

Second  derivative  of  y„  (pjr)  with  respect  to  r. 

VXP_CY2_cl 

Bessel  function  of  the  first  kind,  used  for  the 
vector  X  displacement  potential. 

dl_VXP_CY2_cl 

First  derivative  of  (^jr)  with  respect  to  r. 

d2_VXP_CY2_cl 

3%  f  , 
or 

Second  derivative  of  (q^r)  with  respect  to  r. 

VRTP_CY2_cl 

Bessel  function  of  the  first  kind,  used  for  the 
vector  r  and  0  displacement  potential  of  order 
n  +  1. 

dl_VRTP_CY2_cl 

First  derivative  of  y„  ^ with  respect  to  r. 

d2_VRTP_CY2_cl 

or 

Second  derivative  of  ^  j  (^2'’)  with  respect  to  r. 

SP_CY2_b2 

Bessel  function  of  the  first  kind,  used  for  the 
scalar  displacement  potential.  Can  be  evaluated 
again  for  (pj^i)- 

dl_SP_CY2_b2 

First  derivative  of  (P2r)  with  respect  to  r.  Can 
be  evaluated  again  for  (pa^i)- 

d2_SP_CY2_b2 

XyniPlI’) 

or 

Second  derivative  of  (p^r)  with  respect  to 
r.  Can  be  evaluated  again  for  (P2^i)* 

VXP_CY2_b2 

yA^2b) 

Bessel  function  of  the  first  kind,  used  for  the 
vector  X  displacement  potential.  Can  be 
evaluated  again  for  (^2^1). 
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Table  B-2.  Common  Block  /CYLINDER2/  (Cont’d) 


FORTRAN 

VARIABLE 

TR  11,067 
VARIABLE 

DESCRIPTION 

dl_VXP_CY2_b2 

First  derivative  of  y„  (^2'’)  respect  to  r.  Can 

be  evaluated  again  for  (^2^)- 

d2_VXP_CY2_b2 

or 

Second  derivative  of  y„(<?2'’)  with  respect  to 
r.  Can  be  evaluated  again  for  (^2^1). 

VRTP_CY2_b2 

Bessel  function  of  the  first  kind,  used  for  the 
vector  r  and  0  displacement  potential  of  order 
n  +  1.  Can  be  evaluated  again  for  (^2^i)' 

dl_VRTP_CY2_b2 

First  derivative  of  j  (q^r)  with  respect  to 
r.  Can  be  evaluated  again  for  (^2^1). 

d2_VRTP_CY2_b2 

or 

Second  derivative  of  j  iq./)  with  respect  to 
r.  Can  be  evaluated  again  for  (^2^1)- 

SP_CY2_c2 

Bessel  function  of  the  first  kind,  used  for  the 
scalar  displacement  potential. 

dl_SP_CY2_c2 

First  derivative  of  y„  (P2'’)  with  respect  to  r. 

d2_SP_CY2_c2 

dr 

Second  derivative  of  y„{P2^)  with  respect  to  r. 

VXP_CY2_c2 

Bessel  function  of  the  first  kind,  used  for  the 
vector  X  displacement  potential. 

dl_VXP_CY2_c2 

First  derivative  of  (q^f)  with  respect  to  r. 

d2_VXP_CY2_c2 

dr 

Second  derivative  of  Yniq^j')  with  respect  to  r. 
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Table  B-2.  Common  Block  /CYLINDER!/  (Cont’d) 


FORTRAN 

VARIABLE 

TR  11,067 
VARIABLE 

DESCRIPTION 

VRTP_CY2_c2 

Bessel  function  of  the  first  kind,  used  for  the 
vector  r  and  0  displacement  potential  of  order 
n  +  1. 

dl_VRTP_CY2_c2 

First  derivative  of  ^ with  respect  to  r. 

d2_VRTP_CY2_c2 

dr 

Second  derivative  of  j  (q^r)  with  respect  to  r. 

A1_C2 

^1 

Undetermined  constant. 

A2_C2 

.f  1 

Undetennined  constant. 

B1_C2 

Undetermined  constant. 

B2_C2 

Undetermined  constant. 

C1_C2 

'-1 

Undetermined  constant. 

C2_C2 

^2 

Undetennined  constant. 

lame_c2 

Lame  constant  for  cylinder  2. 

shear_c2 

1^2 

Shear  modulus  for  cylinder  2. 

(• 
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Table  B-3.  Common  Block  /IFLUID/ 


FORTRAN 

VARIABLE 

TR  11,067 
VARIABLE 

DESCRIPTION 

IFSC 

Bessel  function  of  the  first  kind,  used  for 
the  scalar  displacement  potential.  Can 
also  be  evaluated  at  (gir^). 

dl.IFSC 

First  derivative  of  y„(gjr)  with  respect  to 
r.  Can  also  be  evaluated  at  (giri). 

D_IF 

D 

Undetermined  constant. 

Table  B-4.  Common  Block  /OFLUID/ 


FORTRAN 

VARIABLE 

TR  11,067 
VARIABLE 

DESCRIPTION 

OFSC 

or  K„(f2b) 

Modified  Bessel  function,  used  for  the 
scalar  displacement  potential.  Can  also 
be  evaluated  at  (ga^i)  and 

dl.OFSC 

First  derivative  of  “OFSC”  with  respect  to 
r.  Can  also  be  evaluated  at  (£2^1)  and 
(firil 

M_OF 

MotH 

Undetermined  constant. 

Table  B*5.  Calculated  Cylinder  1  Variables 


FORTRAN 

VARIABLE 

TR  11,067 
VARIABLE 

DESCRIPTION 

Ec_cl 

E 

* 

1 

Complex  Young’s  modulus. 

bo_cl 

b 

Outer  radius. 
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Table  B-6.  Calculated  Cylinder  2  Variables 


FORTRAN 

VARIABLE 

TR  11,067 
VARIABLE 

DESCRIPTION 

Ec_c2 

£2* 

Complex  Young’s  modulus. 

co_c2 

c 

Outer  radius. 

Table  B-7.  System  Matrix  Variables 


FORTRAN 

VARIABLE 

TR  11,067 
VARIABLE 

DESCRIPTION 

smrcl 

smcl 

System  matrix  for  the  single  cylinder  with 
inner  and  outer  fluids. 

smrc2 

C 

System  matrix  for  the  double  cylinder 
with  inner  and  outer  fluids. 

TD  11,065 


APPENDIX  C 

MAKEFILE 


#  Makefile  for  mr2cf  program 

#  PATH  /home/kwcode/analysis/tota/RODCY2 

# 

# 

all:mr2cf 

# 

mr2cf:mr2cf.o  zbesseLo  cbessl.o  rf.o  cl.o  c2.o  fliiids.o  smcl.o 

f77  -g  -u  nir2cf.o  zbesseLo  cbessl.o  rf.o  cl.o  c2.o  fluids.o  smcl.o  -N120  -Im  -o  mr2cf 

# 

zbessel:zbessel.o 
f77  -g  -u  zbesseLf 

# 

# 

cbessl:  cbessLo 
f77  -g  -u  cbessLf 

# 

# 

rf:  rf.o 

f77-g-urf.f 

# 

# 

cl:  cl.o 

f77  -g  -u  cl.f 

# 

c2:  c2.o 

fll  -g  -u  c2.f 

# 

fluids:  fluids.o 
f77  -g  -u  fluids.f 

smcl:smcl.o 

f77  -g  -u  smcLf 

# 

clean: 

rm  -f  *.o  *% 

# 


C-l/C-2 
Reverse  Blank 
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APPENDIX  D 

SUBPROUTINE  cbessl.f_matlab 

^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^ 

C 

C  subroutine  “cbessl.f_matlab” 

C 

C  This  subroutine  was  written  and  developed  by  Mark  S.  Peloquin 
C 

C  at  NUWCDETNLON  6/10/95.  As  of  6/10/95,  there  are  no  known  bugs. 

C 

C  Please  notify  the  author  if  bugs  are  found  (203)  440-5433. 

C 

C  This  subroutine  “cbessel.f_matlab”  uses  the  Matlab  library  for  Bessel  Functions 
C  of  complex  argument  z.  The  source  file  needed  is  zbessel.f.  The  following 
C  Bessel  functions  are  used  firom  Matlab:  J,  Y,  and  K. 

C  The  formula  for  the  first  derivative  of  the  Bessel  functions  is  taken  from 
C  Conduction  Heat  Transfer  by  Vedat  S.  Arpaci.  They  are  also  listed  in 
C  Field  Theory  Handbook  by  Moon  and  Spencer. 

C  The  formula  for  the  second  derivative  was  derived  by  Mark  S.  Peloquin  and  checked 
C  by  Roy  Streit.  It  is  listed  as  B-9  in  the  notes. 

C  This  code  was  written  by  Mark  S.  Peloquin  6/10/95  at  NUWCDETNLON. 


function  gamma(n) 
integer  i,n,sum, gamma 
if(n  .eq.  0  .or.  n  .eq.  1)  then 
gamma  =  1 
else 

sum=n 

do  10,  i=l,  n-1 
sum  =  sum*(n-i) 

10  continue 

gamma  =  sum 
endif 
return 
end 
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function  fac(n) 
integer  n,sum,fac,i 
if(n  .eq.  0  .or.  n  .eq.  1)  then 
fac=  1 
else 

sum=n 

do  10,  i=l,  n-1 

sum  =  sum*(n-i) 
10  continue 

fac  =  sum 
endif 
return 
end 


function  psi(n) 
integer  n,na,i 
real*8  sum,psi,euler 

parameter  (euler=.5772 1566490 1 5328606) 

sum  =  0.0 

na  =  iabs(n) 

if  (na  .eq.  1)  then 

psi  =  -  euler 

else 

do  10,  i=l,  na-1 
sum  =  sum  +  (1.0/i) 

10  continue 

psi  =  -euler  +  sum 

endif 

return 

end 


D-2 


non  n  n  n 


TD  11,065 


double  complex  function  cbessj(n,a,r) 


complex*  16  a 
real*8  r 
integer  n 

COMPLEX*16  Z,W,W1,W2,WRK 
REAL*8  ZR,ZI,NU,PI,D1MACH 
INTEGER  KODE,UNFL,IERR 
DATA  PI  /3.1415926535897932385D0/ 

Pick  up  input  arguments  and  allocate  output  array 


nu  =  n 
Z  =  a*r 
KODE  =  1 


J_nu(z) 

IF  (NU  .GE.  O.ODO)  THEN 
CALL  CBESJ(Z,NU,KODE,l,W,UNFL,IERR) 

ELSE  IF  (NU  .EQ.  DINT(NU))  THEN 
CALL  CBESJ(Z,-NU,KODE,l,W,UNFL,IERR) 

IF  (MOD(IDINT(NU),2)  .NE.  0)  W  =  -W 
ELSE  IF  (ZR  .EQ.  O.ODO  .AND.  ZI  .EQ.  O.ODO)  THEN 
W  =  -D1MACH(6) 

ELSE 

CALL  CBESJ(Z,-NU,KODE,l,Wl,UNFLJERR) 

CALL  CBESY(Z,-NU,KODE,l,W2,UNFL,WRK,IERR) 
W  =  DC0S(NU*PI)*W1  +  SIN(NU*PD*W2 
ENDIF 

cbessj  =  W 


return 

end 
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double  complex  function  cbessy(n,a,r) 

complex*  16  a 
real*8  r 
integer  n 

COMPLEX*  16  Z,W,W1,W2,WRK 
REAL*8  ZR,ZI,NU,PI,D1MACH 
INTEGER  KODE,UNFL,IERR 
DATA  PI  /3.1415926535897932385D0/ 


Pick  up  input  arguments  and  allocate  output  array 


NU  =n 
Z  =  a*r 
KODE=l 
ZR  =DREAL(Z) 
ZI  =DIMAG(Z) 


Y_nu(z) 

Y(nu,0)  =  -Infinity 

IF  (ZR  .EQ.  O.ODO  .AND.  ZI  .EQ.  O.ODO)  THEN 
W  =  -D1MACH(6) 

ELSE  IF  (NU  .GE.  O.ODO)  THEN 
CALL  CBESY(Z,NU,KODE,l,W,UNFL,WRK,IERR) 
ELSE  IF  (NU  .EQ.  DINT(NU))  THEN 
CALL  CBESY(Z,-NU,KODE,l,W,UNFL,WRK,IERR) 
IF  (MOD(IDINT(NU),2)  .NE.  0)  W  =  -W 
ELSE 

CALL  CBESJ(Z,-NU.K0DE,1,W1,UNFL,IERR) 

CALL  CBESY(Z,-NU,KODE,l,W2,UNFL,WRK,IERR) 
W  =  DCOS(NU*PI)*W2  -  SIN(NU*PI)*W1 
ENDIF 


cbessy  =  W 


return 

end 
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C  Argument  limit  is  approximately  (3 .0,3.0)  for  cbessi 
double  complex  function  cbessi(n,a,r) 

integer  n, limit, j,k;,na,fac 
real*8  r 

complex*  16  a,z,sum,total 
double  complex  cbessi 

z  =  a*r 
na=iabs(n) 
limit  =10 
total  =  (0.0,0.0) 

do  10,  k=0,  limit 
j  =  na  +  k 

sum  =  ((.25*z**2)**k)/(fac(k)*fac(j)) 
total  =  total  +  sum 
10  continue 

cbessi  =  ((z/2)**na)*total 


return 

end 


double  complex  function  cbessk(n,a,r) 


complex*  16  a 
real*8  r 
integer  n 

COMPLEX*  16  Z,W 
REAL*8  ZR,ZI,NU,PI,D1MACH 
INTEGER  FUN,KODE,UNFL,IERR 
DATA  PI  /3.1415926535897932385D0/ 


Pick  up  input  arguments  and  allocate  output  array 


NU  =n 
Z  =a*r 
KODE  = 1 
ZR  =DREAL(Z) 
ZI  =DIMAG(Z) 
FUN  =75 
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K_nu(z) 

K(nu,0)  =  Infinity 


IF(FUN.EQ.  75)  THEN 
IF  (ZR  .EQ.  O.ODO  .AND.  ZI  .EQ.  O.ODO)  THEN 
W  =  D1MACH(6) 

ELSE 

CALL  CBESK(Z,DABS(NU),KODE,l,W,UNFL,IERR) 
ENDIF 
ENDIF 
C 

cbessk  =  W 


return 

end 


double  complex  function  dlcbessk(n,a,r) 

real*8  r 
complex*  16  a 
integer  n 

double  complex  cbessk,dlcbessk 

dl  cbessk  =  -a*cbessk(n+l,a,r)+(n/r)*cbessk(n,a,r) 

return 

end 


double  complex  function  d2cbessk(n,a,r) 

real*8  r 
complex*  16  a 
integer  n 

double  complex  d2cbessk 

C  Need  the  proper  equation  here,  not  being  used  6/10/95. 
d2cbessk  =  (1.0,1.0) 
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return 

end 


double  complex  function  dlcbessj(n,a,r) 

real*8  r 
complex*  16  a 
integer  n 

double  complex  cbessj,dlcbessj 

dlcbessj  =  -a*cbessj(n+l,a,r)+(n/r)*cbessj(n,a,r) 

return 

end 


double  complex  function  d2cbessj(n,a,r) 

real*8  r 
complex*  16  a 
integer  n 

double  complex  cbessj,d2cbessj 


d2cbessj  =  ((a**2)/4.0D0)*(cbessj(n-2,a,r)  -  2.0D0* 
1  cbessj(n,a,r)  +  cbessj(n+2,a4-)) 


return 

end 
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double  complex  function  dlcbessy(n,a,r) 

real*8  r 
complex*  16  a 
integer  n 

double  complex  cbessy.dlcbessy 

dlcbessy  =  -a*cbessy(n+l,a,r)+(n/r)*cbessy(n,a,r) 

return 

end 


double  complex  function  d2cbessy(n,a,r) 

ieal*8  r 
complex*  16  a 
integer  n 

double  complex  cbessy,d2cbessy 


d2cbessy  =  ((a**2)/4.0D0)*(cbessy(n-2,a,r)  -  2.()D0* 
1  cbessy(n,a,r)  +  cbessy(n+2,a,r)) 


return 

end 


double  complex  function  dlcbessi(n,a,r) 

real*8  r 
complex*  16  a 
integer  n 

double  complex  cbessi,dlcbessi 

dlcbessi  =  a*cbessi(n+l,a,r)+(n/r)*cbessi(n,a,r) 

return 

end 
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double  complex  function  d2cbessi(n,a,r) 

real*8  r 
complex*  16  a 
integer  n 

double  complex  d2cbessi 

C  Need  the  proper  equation  here,  not  being  used  6/10/95. 

d2cbessi  =  (1.0, 1.0) 

return 

end 


double  complex  function  cbesshl(n,a,r) 
real*8  r 
complex*  16  a 
integer  n 

double  complex  cbessj,cbessy,cbesshl 

cbesshl  =  cbessj(n,a4‘)+(0.0, 1.0)*cbessy(n,a,r) 

return 

end 


double  complex  function  cbessh2(n,a,r) 
real*8  r 
integer  n 
complex*  16  a 

double  complex  cbessj,cbessy,cbessh2 

cbessh2  =  cbessj(n,a,r)-(0.0, 1.0)*cbessy(n,a,r) 

return 

end 
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double  complex  function  dlcbesshl(n,a,r) 
integer  n 
real*8  r 
complex  a 

double  complex  dlcbessj,dlcbessy,dlcbesshl 

dlcbesshl  =  dlcbessj(n,a,r)  +  (0.0,l-0)*dlcbessy 
l(n,a,r) 

return 

end 


double  complex  function  dlcbessli2(n,a,r) 
integer  n 
real*8  r 
complex  a 

double  complex  dlcbessj,dlcbessy,dlcbessh2 

dlcbessh2  =  dlcbessj(n,a,r)  -  (0.0,1.0)*dlcbessy 
l(n,a,r) 

return 

end 
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APPENDIX  E 

MODIFIED  SUBROUTINES  FOR  CIRCUMFERENTIAL  EXCITATION 

SUBROUTINE  ABC_ROD_INVERT(exctype,sin) 


C  EXTERNAL  VARIABLES 

integer  exctype 
complex*  16  sm(4,4) 

common  /ROD/  SP_rod,dl_SP_rod,d2_SP_rod,VXP_rod, 
ldl_VXP_rod,d2_VXP_rod.VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 
1  ,Al_rod,B  l_rod,Cl_rod,lame_rod,shear_rod 


complex*  1 6  SP_rod,d  l_SP_rod,d2_SP_rod 
complex*16  VXP_rod,dl_VXP_rod,d2_VXP_rod 
complex*  16  VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 
complex*16  Aljrod,Bl_rod,Cl_rod,lame_rod,shear_rod 

C  DEFINmONS  FOR  COMMON  BLOCK  /OFLUID/ 
complex*16  OFSC,dl_OFSC,M_OF 
common  /OFLUID/  OFSC,dl_OFSC,M_OF 

^4>%3|e9)::|c9ie^^:)e3|c:)c^^:fe3|e:|c9|c3|:!);  ^9)c3|c%!|c3|c3)e^3|c3f:3|e3{c3fc:fc3|c9|!3|c9|c3):sf:i|::)c9|c3|e9t:!{c9|c3|c:(::tE3{c9(c3le3{e:4c:^s]e:je:jc3|c:^^9|c:fe:fc3f: 

C  INTERNAL  VARIABLES 
integer  n,iflag 

complex*  1 6  sminv(4,4),work(4,8) 


n  =  4 
ifiag  =  0 


CALL  MINV(sm,sniinv,work,n,iflag) 
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C  CIRCUMEERENTIAL  EXCITATION 

C  RADIAL  EXCITATION 

C  AXIAL  EXCITATION 

if  (exctype  .eq.  1)  then 
Al_rod  =  -sminv(l,l) 

Bl_rod  =  -sniinv(2,l) 

Cl_rod  =  -sniinv(3,l) 

M_OF  =  -sminv(4,l) 
elseif  (exctype  .eq.  0)  then 
Al_rod  =  -sniinv(l,2) 

Bl_rod  =  -sininv(2,2) 

Cl_rod  =  -sininv(3,2) 

M_OF  =  -srainv(4,2) 
elseif  (exctype  .eq.  2)  then 
Al_rod  =  -sniinv(l,3) 

Bl_rod  S5  -sininv(2,3) 

Cl_rod  =  -sniinv(3,3) 

M_OF  =  -sininv(4,3) 
endif 


return 

end 


exctype  =  2 
exctype  =  1 
exctype  =  0 
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SUBROUTINE  ABC_Cl_INVERT(n,exctype,smcl  ,a,b) 


7* 


C  EXTERNAL  VARIABLES 

integer  n,exctype 
real*8  a,b 

complex*  16  smc  1(7,7) 

C  DEFINmONS  FOR  COMMON  BLOCK  /CYLINDERl/ 

complex*16SP_CYl_al,dl_SP_CYl_al,d2_SP_CYl_al 
complex*16SP_CYl_a2.dl_SP_CYl_a2,d2_SP_CYl_a2 
complex*  16  SP_CYl_bl,dl_SP_CYl_bl.d2_SP_CYl_bl 
complex*16SP_CYl_b2,dl_SP_CYl_b2.d2_SP_CYl_b2 

complex*16VXP_CYl_al,dl_VXP_CYl_al,d2_VXP_CYl_al 
complex*  16  VXP_CYl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2 
complex*16VXP_CYl_bl.dl_VXP_CYl_bl,d2_VXP_CYl_bl 
complex*16VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2 

complex*16VRTP_CYl_al,dl_VRTP_CYl_al,d2_VRTP_CYl_al 
complex*  16  VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VKrP_CYl_a2 
complex*16VRTP_CYl_bl.dl_VRTP_CYl_bLd2_VRTP_CYl_bl 
complex*16VRTP_CYl_b2,dl_VRTP_CYl_b2,d2_VRTP_CYl_b2 

complex*  1 6  lame_cl  ,shearjc  1  ,cl_c  1  ,ct_cl 
complex*16Al_Cl,A2_Cl.Bl_Cl,B2_Cl,Cl_Cl,C2_Cl 

common  /CYUNDERl/  SP_CYl_al,dl_SP_CYl_al.d2_SP_CYl_al. 

1  SP_CYl_a2,dl_SP_CYl_a2,d2_SP_CYl_a2, 

1  SP_CYl_bl,dl_SP_CYl_bl,d2_SP_CYl_bl, 

1  SP_CYl_b2.dl_SP_CYl_b2,d2_SP_CYl_b2, 

1  VXP_CYl_al,dl_VXP_CYl_al,d2_VXP_CYl_al, 

1  VXP_CYl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2, 

1  VXP_CYl_bl.dl_VXP_CYl_bl  ,d2_VXP_CYl_bl , 

1  VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2, 

1  VRTP_CYl_al,dl_VRTP_CYl_al,d2_VRrP_CYl_al , 

1  VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VRTP_CYl_a2, 

1  VRTP_CYl_bl,dl_VRTP_CYl_bl.d2_VRTP_CYl_bl, 

1  VRTP_CYl_b2,dl_VRTP_CYl_b2,d2_VRTP_CYl_b2, 

1  lame_cl,shear_cl,cl_cl,ct_cl, 

1  A1_C1,A2_C1,B1_C1.B2_C1,C1_C1,C2_C1 

Q  *iif*************:ifi****^f********************************************* 


E-3 


TD  11,065 


C  DEFINITIONS  FOR  COMMON  BLOCK  /OFLUID/ 
complex*  16  OFSC,dl_OFSC,M_OF 
common  /OFLUID/  OFSC.dl_OFSC,M_OF 

C  DEFINITIONS  FOR  COMMON  BLOCK  /IFLUID/ 
common  /IFLUID/  IFSC,dl_IFSC  J)_IF 
complex*  16  lFSC,dl_IFSC,D_IF 

^  4:3ie9!c3t:aic9ie:)e4:aH3i:9ic9H9{:4:9icaic9f£$^%9{:aie4::|(9i::(:9KaN9ic:ieaN3|csie9{;*%aic9):4:9ic:iesK3ic4:^**4:4:sf:*iN:^*:^:f::|::f:9|e:i:^:|:H:^^sie9^ 

C  INTERNAL  VARIABLES 
integer  size,iflag 

complex*  1 6  smclinv(7,7),workcl  (7, 14) 

size  =  7 
iflag  =  0 


CAUL  MINV(smcl,smclinv,workcl,size,iflag) 
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C  CmCUMFERENTIAL  EXCITATION  exctype  *  2 

C  RADIAL  EXCITATION  exctype  =1 

C  AXIAL  EXCITATION  exctype  *0 

if  (exctype  .eq,  1)  then 
A1_C1  =  -smclinv(l,l) 

A2_C1  =  -smclinv(2,l) 

B1_C1  =  -smclmv(3,l) 

B2_C1  =  -smclinv(4,l) 

C1_C1  =  -smclinv(5,l) 

C2_Cl=-smclinv(6,l) 

M_OF=  (Al_Cl*dl_SP_CYl_bl  + 

1  A2_Cl*dl_SP_CYl_b2  + 

1  Bl_Cl*n/b*VXP_CYl_bl  + 

1  B2_C1  *n/b*VXP_CYl_b2  + 

1  Cl_Cl*(0.0D0,1.0D0)*k*VRTP_CYl_bl  + 

1  C2_C1  *(O.ODO.LODO)*k*VRTP_CYl_b2)/dl_OFSC 

D_IF  =  -smclinv(7,l) 
elseif  (exctype  .eq.  0)  then 
A1_C1  =  -smclinv(l,2) 

A2_C1  =  -smclinv(2,2) 

B1_C1  =  -smclinv(3,2) 

B2_C1  =  -smclinv(4,2) 

C1_C1  -  -smclinv(5,2) 

C2_C1  =  -smclinv(6,2) 

M_OF  =  (Al_Cl*dl_SP_CYl_bl  + 

1  A2_Cl*dl_SP_CYl_b2  + 

1  Bl_Cl*n/b*VXP_CYl_bl  + 

1  B2_C1  *n/b*VXP_CYl_b2  + 

1  Cl_Cl*(0.0D0,1.0D0)*k*VRTP_CYl_bl  + 

1  C2_C1  *(0.0D0, 1.0D0)*k*VRTP_CYl_b2)/dl_OFSC 

D_IF  =  -smclinv(7,2) 
elseif  (exctype  .eq.  2)  then 
A1_C1  =  -smclinv(l,3) 

A2_C1  =  -smclinv(2,3) 

B1_C1  ss  -smclinv(3,3) 

B2_C1  =  -sniclinv(4,3) 

C1_C1  =  -smclinv(5,3) 

C2_C1  =  -smclinv(6,3) 

M_OF=  (Al_Cl*dl_SP_CYl_bl  + 

1  A2_Cl*dl_SP_CYl_b2  + 

1  Bl_Cl*n/b*VXP_CYl_bl  + 

1  B2_C1  *n/b*VXP_CYl_b2  + 

1  Cl_Cl*(0.0D0,1.0D0)*k*VRTP_CYl_bl  + 

1  C2_Cl*(0.0D0,1.0D0)*k*VRTP_CYl_b2)/dl_OFSC 

D_IF  =  -smclinv(7,3) 
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endif 


return 

end 
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SUBROUTINE  ABC_RCl_INVERT(n,exctype,sinrcl,b) 


C  EXTERNAL  VARIABLES 

integer  n,exctype 
real*8  b 

coniplex*16  smrcl(10,10) 

C  DEFINITIONS  FOR  COMMON  BLOCK  /CYLINDERl/ 

complex*16SP_CYl_al,dl_SP_CYl_al42_SP_CYl_al 

complex*16SP_CYl_a2.dl_SP_CYl_a2,d2_SP_CYl_a2 

complex*16SP_CYl_bl41_SP_CYl_bl,d2_SP_CYl_bl 

complex*16SP_CYl_b2,dl_SP_CYl_b2,d2_SP_CYl_b2 

complex*  16  VXP_CYl_al  ,dl_VXP_CYl_al  ,d2_VXP_CYl_al 
complex*16VXP_CYl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2 
complex*16VXP_CYl_bl41_VXP_CYl_bl,d2_VXP_CYl_bl 
complex*16VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2 

complex*16VRTP_CYl_al,dl_VRTP_CYl_al,d2_VRTP_CYl_al 

complex*16VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VRTP_CYl_a2 

complex*16VRTP_CYl_bl41_VRTP_CYl_bl,<12_VRTP_CYl_bl 

complex*16VRTP_CYl_b2,dl_VRTP_CYl_b2,d2_VRTP_CYl_b2 

complex*161ame_cl,shear_cl,cl_cl,ct_cl 
complex*16  A1_C1,A2_C1,B  1_C1,B2_C1.C1_C1,C2_C1 

common  /CYLINDERl/  SP_CYl_al,dl_SP_CYl_al,d2_SP_CYl_al, 
1  SP_CYl_a2,dl_SP_CYl_a2,d2_SP_CYl_a2, 

1  SP_CYl_bl41_SP_CYl_bl.d2_SP_CYl_bl, 

1  SP_CYl_b2,dl_SP_CYl_b2.d2_SP_CYl_b2. 

1  VXP_CYl_al.dl_VXP_CYl_al,d2_VXP_CYl_al, 

1  VXP_CYl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2, 

1  VXP_CYl_bl41_VXP_CYl_bl42_VXP_CYl_bl. 

1  VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2, 

1  VRTP_CYl_al41_VRTP_CYl_al,d2_ViaP_CYl_al, 

1  VRTP_CYl_a241_VRTP_CYl_a2,d2_VRTP_CYl_a2, 

1  VRTP_CYl_bl41_VRTP_CYl_bl,d2_VRTP_CYl_bl, 

1  VRTP_CYl_b241_VRTP_CYl_b2,d2_VRTP_CYl_b2, 

1  lame_cl,shear_cl,cl_cl,ct_cl, 

1  A1_C1,A2_C1,B1_C132_C1,C1_C1,C2_C1 
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C  DEFDSrrnONS  for  common  block  /rod/ 

common  /ROD/  SP_rod,dl_SP_rod,d2_SP_rod,VXP_rod, 
ldl_VXP_rod,d2_VXP_rod,VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 
1 ,  A 1  _rod,B  l_rod,C  l_rod,lame_rod,shear_rod 


complex*  16  SP_rod,dl_SP_rod,d2_SP_rod 
complex*16VXP_rod,dl_VXP_rod,d2_VXP_rod 
complex*  1 6  VRTP_rod,dl_VRTP_rod,d2_VRTP_rod 
complex*16  Al_rod,Bl_rod,Cl_rod,lame_rod,shear_rod 

C  DEFINmONS  FOR  COMMON  BLOCK  /OFLUID/ 
complex*  16  OFSC,dl_OFSC,M_OF 
common  /OFLUID/  OFSC.dl_OFSC,M_OF 

C  INTERNAL  VARIABLES 
integer  size,iflag 

complex*  16  smrclinv(  10,10), workrcl  (10,20) 


size  =  10 
iflag  =  0 


CALL  MINV(smrcl,smrclinv,  workrcl, size,iflag) 
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if  (exctype  .eq.  1)  then 
A1_C1  =  -smrclinv(l,l) 
A2_C1  =  -snirclinv(2,l) 
B1_C1  = -smrclinv(3,l) 
B2_C1  =  -smrclinv(4,l) 
C1_C1  =  -smrclinv(5,l) 
C2_C1  =  -smrclinv(6,l) 
Al_rod  =  -snirclinv(7,l) 
Bl_rod  =  -smrclinv(8,l) 
Cl_rod  =  -smrclinv(9,l) 
M_OF  =  -smrclinv(10,l) 
elseif  (exctype  .eq.  0)  then 
A1_C1  =  -smrclinv(l,2) 
A2_C1  =  -smrclinv(2,2) 
Bl.Cl  =  -smrclinv(3,2) 
B2_C1  =  -snirclinv(4,2) 
C1_C1  =  -smrclinv(5,2) 
C2_C1  =  -smrclinv(6,2) 
Al_rod  =  -smrclinv(7,2) 
Bl_rod  =  -smrclinv(8,2) 
Cl_rod  =  -smrclinv(9,2) 
M_OF  =  -smrclinv(10,2) 
elseif  (exctype  .eq.  2)  then 
A1_C1  =  -smrclinv(l,3) 
A2_C1  =  -snirclinv(2,3) 
B1_C1  = -snirclinv(3,3) 
B2_C1  =-smrclinv(4.3) 
C1_C1  =  -smrclinv(5,3) 
C1J2\  =  -smrclinv(6,3) 
Al_rod  =  -smrclinv(7,3) 
Bl_rod  =  -snirclinv(8,3) 
Cl_rod  =  -snirclinv(9,3) 
M_OF  =  -smrclinv(10,3) 
endif 


return 

end 
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SUBROUTINE  ABC_RC2_INVERT(n,exctype,snirc2,a,c) 


C  EXTERNAL  VARIABLES 

integer  n,exctype 
real*8  a,c 

complex*  16  smrc2(13,13) 

C  DEFINTnONS  FOR  COMMON  BLOCK  /CYLINDERl/ 

complex*16SP_CYl_al,dl_SP_CYl_al,d2_SP_CYl_al 

complex*16SP_CYl_a2,dl_SP_CYl_a2,d2_SP_CYl_a2 

complex*16SP_CYl_bl,dl_SP_CYl_bl,d2_SP_CYl_bl 

complex*16SP_CYl_b2,dl_SP_CYl_b2,d2_SP_CYl_b2 

complex*16VXP_CYl_al,dl_VXP_CYl_al,d2_VXP_CYl_al 
complex*16VXP_CYl_a2,dl_VXP_CYl_a2.d2_VXP_CYl_a2 
complex*16VXP_CYl_bl.dl_VXP_CYl_bl,d2_VXP_CYl_bl 
complex*  16  VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2 

complex*16VRTP_CYl_al,dl_VRTP_CYl_al,d2_VRTP_CYl_al 

complex*16VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VRTP_CYl_a2 

complex*16VRTP_CYl_bl,dl_VRTP_CYl_bl,d2_VRTP_CYl_bl 

complex*16VRTP_CYl_b2,dl_VRTP_CYl_b2,d2_VRTP_CYl_b2 

complex*  1 6  lame_cl  ,shear_c  1  ,cl_c  1  ,ct_c  1 
complex*16  A1_C1,A2_C1,B  1_C1,B2_C1,C1_C1,C2_C1 

common  /CYLINDERl/  SP_CYl_al,dl_SP_CYl_al,d2_SP_CYl_al, 

1  SP_CYl_a2,dl_SP_CYl_a2,d2_SP_CYl_a2. 

1  SP_CYl_bl.dl_SP_CYl_bl,d2_SP_CYl_bl, 

1  SP_CYl_b2,dl_SP_CYl_b2,d2_SP_CYl_b2. 

1  VXP_CYl_al,dl_VXP_CYl_al,d2_VXP_CYl_al, 

1  VXP_CYl_a2,dl_VXP_CYl_a2,d2_VXP_CYl_a2, 

1  VXP_CYl_bl.dl_VXP_CYl_bl  ,d2_VXP_CYl_bl , 

1  VXP_CYl_b2,dl_VXP_CYl_b2,d2_VXP_CYl_b2, 

1  VRTP_CYl_al.dl_VRTP_CYl_al,d2_VRTP_CYl_al, 

1  VRTP_CYl_a2,dl_VRTP_CYl_a2,d2_VRTP_CYl_a2, 

1  VRTP_CYl_bl,dl_VRTP_CYl_bl,d2_VRTP_CYl_bl, 

1  VRTP_CYl_b2,dl_VRTP_CYl_b2,d2_VRTP_CYl_b2, 

1  lame_cl,shear_cl,cl_cl,ct_cl, 

1  A1_C1,A2_C1B1_C1,B2_C1,C1_C1,C2_C1 


E- 10 


TD  11,065 


C  DEFESimONS  FOR  COMMON  BLOCK  /CYLINDER2/ 

complex*16SP_CY2_bl41_SP_CY2_bl,d2_SP_CY2_bl 
complex*  16  SP_CY2_b2,dl_SP_CY2_b2,d2_SP_C  Y2_b2 
complex*  1 6  SP_CY2_cl  ,dl_SP_CY2_cl  ,d2_SP_CY2_c  1 
complex*  16  SP_CY2_c2,dl_SP_CY2_c2,d2_3P_CY2_c2 

complex*16VXP_CY2_bl,dl_VXP_CY2_bl,d2_VXP_CY2_bl 
complex*16VXP_CY2_b2,dl_VXP_CY2_b2.d2_VXP_CY2_b2 
complex*16VXP_CY2_cl,dl_VXP_CY2_cl,d2_VXP_CY2_cl 
complex*  16  VXP_CY2_c2,dl_VXP_CY2_c2,d2_VXP_CY2_c2 

complex*16VRTP_CY2_bl,dl_VRTP_CY2_bl.d2_VRTP_CY2_bl 

complex*16VRTP_CY2_b2.dl_VRTP_CY2_b2,d2_VRTP_CY2_b2 

complex*16VRTP_CY2_cl,dl_VRTP_CY2_cl,d2_VRTP_CY2_cl 

complex*16VRTP_CY2_c2,dl_VRTP_CY2_c2,d2_VRTP_CY2_c2 

complex*  1 6  Iame_c2,shear_c2,cl_c2,ctjc2 

complex*16  A1_C2,A2_C2.B  1_C2,B2_C2,C1_C2,C2_C2 


f 


common  /CYLINDER2/  SP_CY2_bl,dl_SP_CY2_bl,d2_SP_CY2_bl, 

1  SP_CY2_b2,dl_SP_CY2_b2,d2_SP_CY2_b2, 

1  SP_CY2_cl,dl_SP_CY2_cl,d2_SP_CY2_cl, 

1  SP_CY2_c2,dl_SP_CY2_c2,d2_SP_CY2_c2, 

1  VXP_CY2_bl.dl_VXP_CY2_bl  ,d2_VXP_CY2_bl, 

1  VXP_CY2_b2,dl_VXP_CY2_b2.d2_VXP_CY2_b2, 

1  VXP_CY2_cl.dl_VXP_CY2_cl,d2_VXP_CY2_cl, 

1  VXP_CY2_c2,dl_VXP_CY2_c2,d2_VXP_CY2_c2, 

1  VRTP_CY2_bl41_VRTP_CY2_bl42_VRTP_CY2_bl, 

1  VRTP_CY2_b241_VRTP_CY2_b2,d2_VRTP_CY2_b2, 

1  VRTP_CY2_cl41_VRTP_CY2_cl,d2_VRrP_CY2_cl, 

1  VRTP_CY2_c241_VRTP_CY2_c2,d2_VRTP_CY2_c2, 

1  Iame_c2,shear_c2,cl_c2,ct_c2, 

1  A1_C2,A2_C23 1_C2,B2_C2,C1_C2.C2_C2 

Q  :ic  3fc  s|c  :|c  9ic  sic  :f( :}:  :(c  He  9|c:ie9ic:ie:(c  4c 9{c9ic:)c9f:9)c^:{c3ic:t:4:  sic  4c  4c  sic  He sfc 


C  DEFINmONS  FOR  COMMON  BLOCK  /ROD/ 

common  /ROD/  SP_rod41_SP_rod,d2_SP_rod,VXP_rod, 
ldl_VXP_rod42_VXP_rod,VRTP_rod41_VRTP_rod,d2_VRTP_rod 
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1 ,  A  l_rod,B  l_rod,C  l_rod,lame_rod,shear_rod 


complex*  16  SP_rod,dl_SP_rod,d2_SP_rod 
complex*  16  VXP_rod,dl_VXP_rod,d2_VXP_rod 
complex*16  VRTP_rod41_VRTP_rod,d2_VRTP_rod 
complex*  1 6  A  l_rod,B  l_rod,C  l_rod,lame_rod,shear_rod 

Q  He***:|c:|:5i::H**H!*****s«eHc5ic****5K*9ic****:|:******5*:****5j:***iK5|«**9ifi*******4::ii5|!***** 

C  DEFINmONS  FOR  COMMON  BLOCK  /OFLUID/ 
complex*  16  OFSC,dl_OFSC,M_OF 
common  /OFLUID/  OFSC,dl_OFSC,M_OF 

^  *!|!**St!*i|e*******!te*********S|!****S|C***!|!S|:!|:******!t:*****>t:*****S(!*********!i!* 

0  ****!|C*****!t!**SN******^:*!>|:***5|!*!(t!|!********5(!*******>|:*****!|!!(=**!i<>N*S|:****i(tH! 

C  DEFDSimONS  FOR  COMMON  BLOCK  /IFLUID/ 
common  /IFLUID/  lFSC,dl_IFSCD_IF 
complex*  16  IFSC,dl_IFSC.D_IF 

Q  ♦il!*******************************:!********************************* 

C  INTERNAL  VARIABLES 
integer  size,iflag 

complex*  1 6  smrc2inv(  13,1 3),woiiac2(  1 3,26) 


size  =  13 

iflag  =  0  1 


CALLMINV(snirc2,smrc2mv,workrc2,size,iflag) 
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C  CIRCUMFERENTIAL  EXCITATION  exctype  =  2 
C  RADIAL  EXCITATION  exctype  =  1 

C  AXIAL  EXCITATION  exctype  =  0 

if  (exctype  .eq.  1)  then 
A1_C2  =  -smrc2mv(l,l) 

A2_C2  =  -smrc2inv(2,l) 

B1_C2  =  -sinrc2inv(3,l) 

B2_C2  ss  -smrc2mv(4,l) 

C1_C2  =  -smrc2inv(5,l) 

C2_C2  =  -smrc2inv(6,l) 

A1_C1  =  -snirc2inv(7,l) 

A2_C1  =  -smrc2inv(8,l) 

B1_C1  =  -smrc2inv(9,l) 

B2_C1  =  -smrc2inv(10,l) 

C1_C1  =-sinrc2inv(ll,l) 

C2_C1  =  -smrc2inv(12,l) 

D_IF  =  -smrc2mv(13,l) 

M_OF=(Al_C2*dl_SP_CY2_cl  + 

1  A2_C2*dl_SP_CY2_c2  + 

1  Bl_C2*n/c*VXP_CY2_cl  + 

1  B2_C2*n/c*VXP_CY2_c2  + 

1  Cl_C2*(0.0D0,L0D0)*k*VRTP_CY2_cl  + 

1  C2_C2*(O.ODO,LODO)*k*VRTP_CY2_c2)/dl_OFSC 


elseif  (exctype  .eq.  0)  then 
A1_C2  =  -snirc2inv(l,2) 

A2_C2  ss  -snirc2inv(2,2) 

B1_C2  =  -sinrc2inv(3,2) 

B2_C2  ss  -snirc2inv(4,2) 

C1_C2  =  -snirc2inv(5,2) 

C2_C2  =  -snirc2inv(6,2) 

A1_C1  =  -snirc2inv(7,2) 

A2_C1  =  -smrc2inv(8,2) 

B1_C1  = -snirc2inv(9,2) 

{  B2_C1  ss  -smrc2inv(10,2) 

C1_C1  =  -smrc2inv(ll,2) 

C2_C1  =  -sinrc2inv(12,2) 

D_IF  =  -smrc2inv(13,2) 

M_OF=(Al_C2*dl_SP_CY2_cl  + 

1  A2_C2*dl_SP_CY2_c2  + 

1  Bl_C2*n/c*VXP_CY2_cl  + 

1  B2_C2*n/c*VXP_CY2_c2  + 

1  Cl_C2*(O.ODO,1.0DO)*k*VRTP_CY2_cl  + 

1  C2_C2*(0.0D0,1.0D0)*k*VRTP_CY2_c2)/dl_OFSC 
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elseif  (exctype  .eq.  2)  then 
A1_C2  =  -smrc2inv(l,3) 

A2_C2  =  -smrc2inv(2,3) 

B1_C2  =  -snirc2inv(3,3) 

B2_C2  =  -smrc2inv(4,3) 

C1_C2  =  -smrc2inv(5,3) 

C2_C2  =  -smrc2inv(6,3) 

A1_C1  =  -sinrc2inv(7,3) 

A2_C1  =  -smrc2mv(8,3) 

B1_C1  =  -smrc2inv(9,3) 

B2_C1  =  -smrc2inv(10,3) 

C1_C1  =-smrc2inv(11.3) 

C2_C1  =-snirc2inv(12,3) 

D_IF  =  -smrc2inv(13,3) 

M_OF=(Al_C2*dl_SP_CY2_cl  + 

1  A2_C2*dl_SP_CY2_c2  + 

1  Bl_C2*n/c*VXP_CY2_cl  + 

1  B2_C2*n/c*VXP_CY2_c2  + 

1  Cl_C2*(0.0D0,1.0D0)*k*VRTP_CY2_cl  + 

1  C2_C2*(0.0D0,1.0D0)*k*VRTP_CY2_c2)/dl_OFSC 

endif 


return 

end 
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